home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / medinfo1.zip / MEDFO.BAS < prev    next >
BASIC Source File  |  1994-05-19  |  63KB  |  1,914 lines

  1.  
  2. SCREEN 9
  3. DRAW "BM 140,60"
  4. DRAW "C2 D200 R380 U200 L380"
  5. PAINT STEP(-1, -1), 9, 2
  6. LOCATE 7, 32
  7. PRINT "THE FOLLOWING MEDICAL"
  8. LOCATE 9, 27
  9. PRINT "INFORMATION HAS BEEN OBTAINED"
  10. LOCATE 11, 22
  11. PRINT "FROM TABER'S CYCLOPEDIC MEDICAL DICTONARY"
  12. LOCATE 13, 19
  13. PRINT "A.M.A. MEDICAL GUIDE, PHYSICIANS DRUG HANDBOOK"
  14. LOCATE 16, 28
  15. PRINT "FOR REFERENCE PURPOSES ONLY!"
  16. LOCATE 18, 20
  17. PRINT "DAROLD HEAPE                 WICHITA, KANSAS"
  18. DELAY 4
  19.  
  20. MMENU:
  21.     CLS
  22.     SCREEN 9
  23.     COLOR 15
  24.     DRAW "BM 120, 50"
  25.     DRAW "C3 D235 R410 U235 L410 "
  26.     PAINT STEP(-1, -1), 9, 3
  27.     LOCATE 3, 35
  28.     PRINT " Main Menu "
  29.     LOCATE 7, 18
  30.     PRINT "(1) = General Drug Categories."
  31.     LOCATE 9, 20
  32.     PRINT "(2) = Medical Abbreviations."
  33.     LOCATE 11, 22
  34.     PRINT "(3) = Medical Suffixes / Prefixes."
  35.     LOCATE 13, 24
  36.     PRINT "(4) = CPR / Diabetic info / Lab tests"
  37.     LOCATE 15, 26
  38.     PRINT "(5) = Drug Therapeutic Classifications"
  39.     LOCATE 17, 28
  40.     PRINT "(6) = Medical Hot Line Numbers"
  41.     LOCATE 19, 30
  42.     PRINT "(7)= Quit"
  43.     LOCATE 23, 32
  44.     INPUT " Your request is"; req
  45.  
  46. SELECT CASE (req)
  47.  
  48.     CASE 9 TO 1000
  49.     CLS
  50.     SCREEN 0
  51.     LOCATE 10, 6
  52.     PRINT "You entered an incorrect number!"
  53.     COLOR 0, 0
  54.     DELAY 2
  55.     GOTO MMENU
  56.  
  57. CASE (1)
  58.     CALL MEDCAT
  59.  
  60. CASE (2)
  61.     CALL ABBRE
  62.  
  63. CASE (3)
  64.    CALL SUFF
  65.  
  66. CASE (4)
  67.    CALL CPR
  68.  
  69. CASE (5)
  70.      CALL THERCAT
  71.  
  72. CASE (6)
  73.    CALL PHONE
  74.  
  75. CASE (7)
  76.     CLS
  77.     SCREEN 0
  78.     COLOR 11, 0
  79.     LOCATE 6, 36
  80.     PRINT "THANK YOU"
  81.     LOCATE 10, 28
  82.     PRINT "For supporting shareware"
  83.     LOCATE 14, 34
  84.     PRINT "DAROLD HEAPE"
  85.     DELAY 3
  86.     END SELECT
  87.     END
  88.  
  89. SUB ABBRE
  90. MENU:
  91.     CLS
  92.     SCREEN 9
  93.     COLOR 4
  94.     DRAW "BM 160, 36"
  95.     DRAW "C1 D250 R340 U250 L340 BR5 BD5 D240 R330 U240 L330"
  96.     PAINT STEP(-1, -1), 11, 1
  97.     LOCATE 2, 25
  98.     PRINT " Abbrevations and Meanings Menu "
  99.     LOCATE 5, 22
  100.     PRINT "(1)= A - bid              (6)= Le - Ht"
  101.     LOCATE 7, 22
  102.     PRINT "(2)= Bil - Co             (7)= N&V - Px"
  103.     LOCATE 9, 22
  104.     PRINT "(3)= Cp - Ei              (8)= Q - Sc"
  105.     LOCATE 11, 22
  106.     PRINT "(4)= Ek - Hct             (9)= Sca - Te"
  107.     LOCATE 13, 22
  108.     PRINT "(5)= Hg - Ld              (10)= Th - z"
  109.     LOCATE 16, 32
  110.     PRINT "(20)=Quit to main menu"
  111.     LOCATE 20, 32
  112.     INPUT " Your request is"; AA
  113.  
  114.     SELECT CASE (AA)
  115.  
  116.     CASE 11 TO 19
  117.         CLS
  118.         SCREEN 1
  119.         LOCATE 10, 8
  120.         PRINT "YOU ENTERED A WRONG NUMBER!"
  121.         DELAY 2
  122.         GOTO MENU
  123.  
  124.     CASE 21 TO 1000
  125.     CLS
  126.     SCREEN 1
  127.     LOCATE 10, 8
  128.     PRINT "YOU ENTERED A WRONG NUMBER!"
  129.     DELAY 2
  130.     GOTO MENU
  131.  
  132.    CASE (20)
  133.         GOTO MMENU
  134.  
  135.    CASE (1)
  136.     CLS
  137.     SCREEN 9
  138.     CALL BBOX
  139.     LOCATE 3, 4
  140.     PRINT "Ab = antibody                         AB = abnormal"
  141.     LOCATE 4, 4
  142.     PRINT "ABC = aspiration, biopsy, cytology    A/B = acid-base ratio"
  143.     LOCATE 5, 4
  144.     PRINT "ABG = arterial blood gas              ABP = arterial blood pressure"
  145.     LOCATE 6, 4
  146.     PRINT "AC = before meals                     ACVD = acute cardiovascular disease"
  147.     LOCATE 7, 4
  148.     PRINT "ADL = activities of daily living      ad lib = as desired"
  149.     LOCATE 8, 4
  150.     PRINT "ADT = admission,discharge,transfer    AFB = acid-fast bacilli"
  151.     LOCATE 9, 4
  152.     PRINT "AFP = alpha-fetoprotein               AgNO3 = silver nitrate"
  153.     LOCATE 10, 4
  154.     PRINT "Ag = antigen                          AI = aortic insufficiency"
  155.     LOCATE 11, 4
  156.     PRINT "ALG = antilymphocytic golbulin        ALP = alkaline phosphatase"
  157.     LOCATE 12, 4
  158.     PRINT "alt noct = alternate nights           alb = albumin"
  159.     LOCATE 13, 4
  160.     PRINT "AMA = against medical advice          AMI = acute myocardial infarction"; ""
  161.     LOCATE 14, 4
  162.     PRINT "amp = ampule                          AMS = amylase"
  163.     LOCATE 15, 4
  164.     PRINT "ANA = antinuclear antibodies          ANS = autonomic nervous system"; ""
  165.     LOCATE 16, 4
  166.     PRINT "ant = anterior                        aq = aqueous"
  167.     LOCATE 17, 4
  168.     PRINT "ARC = AIDS-related complex            ARD = acute respiratory disease "; ""
  169.     LOCATE 18, 4
  170.     PRINT "ARF = acute respiratory failure       AS = left ear"
  171.     LOCATE 19, 4
  172.     PRINT "ASAP = as soon as possible            ASD = atrial septal disease"
  173.     LOCATE 20, 4
  174.     PRINT "Au = gold                             AU = both ears"
  175.     LOCATE 21, 4
  176.     PRINT "BaE = barium enema                    BAO = basal acid output"
  177.     LOCATE 22, 4
  178.     PRINT "BBT = basal body temperature          BCC = basal cell carcinoma"
  179.     LOCATE 23, 4
  180.     PRINT "BFP = biological false positive       bid = twice a day"
  181.     DELAY 10
  182.     GOTO MENU
  183.  
  184.    CASE 2
  185.     CLS
  186.     SCREEN 9
  187.     COLOR 4
  188.     DRAW "BM 10, 10"
  189.     DRAW "C1 D310 R610 U310 L610 BR5 BD5 D300 R600 U300 L600"
  190.     PAINT STEP(-1, -1), 11, 1
  191.     LOCATE 3, 4
  192.     PRINT " bil = bilateral                     bin = twice a night"
  193.     LOCATE 4, 4
  194.     PRINT " Bld = blood                         BMR = basal metabolic rate"
  195.     LOCATE 5, 4
  196.     PRINT " BMT = barium meal test              BOM = bilateral otitis media"
  197.     LOCATE 6, 4
  198.     PRINT " BSP = bromsulphalein                BUN = blood urea nitrogen"
  199.     LOCATE 7, 4
  200.     PRINT " BV = blood volume                   Bx = biopsy"
  201.     LOCATE 8, 4
  202.     PRINT "c = with                             CA = calcium, cancer"
  203.     LOCATE 9, 4
  204.     PRINT "CAB = coronary artery bypass         CBC = complete blood count"
  205.     LOCATE 10, 4
  206.     PRINT "CBF = cerebral brain syndrome        CBI = continuous bladder irrigation"
  207.     LOCATE 11, 4
  208.     PRINT "CBR = complete bed rest              CBS = chronic brain syndrome"
  209.     LOCATE 12, 4
  210.     PRINT "cc = cubic centrimeter               CCA = circumflex coronary artery"
  211.     LOCATE 13, 4
  212.     PRINT "CEA = carcinoembryonic antigen       CGL = chronic granulomatous leukemia"
  213.     LOCATE 14, 4
  214.     PRINT "Ch = cholesterol                     CHD = coronary heart disease"
  215.     LOCATE 15, 4
  216.     PRINT "CHF = congestive heart failure       CHO = carbohydrate"
  217.     LOCATE 16, 4
  218.     PRINT "CI = coronary insufficiency          cib = food"
  219.     LOCATE 17, 4
  220.     PRINT "CIS = carcinoma in site              CK = creatine kinase"
  221.     LOCATE 18, 4
  222.     PRINT "CLD = chronic liver disease          CML = chronic myelocytic leukemia"
  223.     LOCATE 19, 4
  224.     PRINT "cm = centimeter                      CNS = central nervous system"
  225.     LOCATE 20, 4
  226.     PRINT "c/o = complaints of                  Co = cobalt"
  227.     LOCATE 21, 4
  228.     PRINT "CO = cardon monoxide                 CO2 = carbon dioxide"
  229.     LOCATE 22, 4
  230.     PRINT "COH = carbon hydrate                 contra = against"
  231.     DELAY 10
  232.     GOTO MENU
  233.  
  234.     CASE 3
  235.     CLS
  236.     CALL BBOX
  237.     LOCATE 4, 4
  238.     PRINT "CPE = cytopathic effect             CPK = creatine phosphokinase"
  239.     LOCATE 5, 4
  240.     PRINT "CR = conditioned reflex             CRF = chronic renal failure"
  241.     LOCATE 6, 4
  242.     PRINT "Cs = cesium                         C&S = culture and sensitivity"
  243.     LOCATE 7, 4
  244.     PRINT "D = diopter (lens length)           d = day"
  245.     LOCATE 8, 4
  246.     PRINT "DAT = diet as tolerated             db = decibel"
  247.     LOCATE 9, 4
  248.     PRINT "D&C = dilation & curettage          D/C = discontinue"
  249.     LOCATE 10, 4
  250.     PRINT "DCC = direct current cardioversion  DCR = direct cortical response"
  251.     LOCATE 11, 4
  252.     PRINT "D&E = dilation & evacuation         DES = diethyletibestrol"
  253.     LOCATE 12, 4
  254.     PRINT "DGE = delayed gastric emptying      dia = diagnosis"
  255.     LOCATE 13, 4
  256.     PRINT "diff = differential                 DIP = distal interphalangeal"
  257.     LOCATE 14, 4
  258.     PRINT "DJD = degenerative joint disease    DNA = deoxyribonucleic acid"
  259.     LOCATE 15, 4
  260.     PRINT "DOE = dyspnea on exertion           DPT = diptheria, pertussis, tetanus"
  261.     LOCATE 16, 4
  262.     PRINT "DR = digital radiography            D/S = dextrose in saline"
  263.     LOCATE 17, 5
  264.     PRINT "DSD = dry                           DTs = delirium tremens"
  265.     LOCATE 18, 5
  266.     PRINT "DVI = digital vascular imaging      DW = distilled water"
  267.     LOCATE 19, 5
  268.     PRINT "D/W = dextrose in water             Dx = diagnosis"
  269.     LOCATE 20, 5
  270.     PRINT "E = enema                           EBL = estimated blood loss"
  271.     LOCATE 21, 5
  272.     PRINT "ECG = electrocardiogram             ED = effective dose"
  273.     LOCATE 22, 5
  274.     PRINT "EDG = electrohemodynamics           EEG = electroencephalogram"
  275.     LOCATE 23, 5
  276.     PRINT "EHD = electrohemodynamics           EIA = enzyme immunoassay"
  277.     DELAY 10
  278.     GOTO MENU
  279.    CASE 4
  280.     CLS
  281.     CALL BBOX
  282.     LOCATE 4, 5
  283.     PRINT "EKG = electrocardiogram             EMG = eletronystagmography"
  284.     LOCATE 5, 5
  285.     PRINT "ENT = ear, nose, throat             EOG = electro-oculogram"
  286.     LOCATE 6, 5
  287.     PRINT "EPO = erythropoietin                ERV = expiratory reserve volume"
  288.     LOCATE 7, 5
  289.     PRINT "ESD = end-systolic dimension        ESV = end-systolic volume"
  290.     LOCATE 8, 5
  291.     PRINT "ET = esotropia                      et = and"
  292.     LOCATE 9, 5
  293.     PRINT "F = fahrenheit                      FB = foreign body "
  294.     LOCATE 10, 5
  295.     PRINT "FBS = fasting blood sugar           Fe = iron"
  296.     LOCATE 11, 5
  297.     PRINT "FHR = fetal heart rate              FHS = fetal heart sounds"
  298.     LOCATE 12, 5
  299.     PRINT "FHT = fetal heart tones             fr = fibrin-fibrinogen related"
  300.     LOCATE 13, 5
  301.     PRINT "FU = follow-up                      FX = fracture"
  302.     LOCATE 14, 5
  303.     PRINT "G = gram                            ga = gallium"
  304.     LOCATE 15, 5
  305.     PRINT "G-Cs = glucocorticoids              GC= gonorrhea"
  306.     LOCATE 16, 5
  307.     PRINT "GG = gamma gobulin                  GH = growth hormone"
  308.     LOCATE 17, 5
  309.     PRINT "GI = gastrointestinal               qm = gram"
  310.     LOCATE 18, 5
  311.     PRINT "gr = grain                          GT  = glucose tolerance"
  312.     LOCATE 19, 5
  313.     PRINT "gtt = drops                         GU = genitourinary"
  314.     LOCATE 20, 5
  315.     PRINT "h = hour                            HAV = hepatitis a virus"
  316.     LOCATE 21, 5
  317.     PRINT "HB = heart block                    Hb = hemoglobin"
  318.     LOCATE 22, 5
  319.     PRINT "HBV = hebatitis b virus             HCI = hydrochloric acid"
  320.     LOCATE 23, 5
  321.     PRINT "HCL = hairy cell leukemia           hct = hematocrit"
  322.     DELAY 10
  323.     GOTO MENU
  324.  
  325.     CASE 5
  326.     CLS
  327.     CALL BBOX
  328.     LOCATE 4, 5
  329.     PRINT "Hg = mercury                         HO = hyperbaric oxygen"
  330.     LOCATE 5, 5
  331.     PRINT "hgb = hemoglobin                     HPN = hypertension"
  332.     LOCATE 6, 5
  333.     PRINT "hr = hour                            hs = at bed time (hour of sleep)"
  334.     LOCATE 7, 5
  335.     PRINT "HSV = herpes simplex virus            H2O = water"
  336.     LOCATE 8, 5
  337.     PRINT "H2O2= hydrogen                        Hx = history"
  338.     LOCATE 9, 5
  339.     PRINT "IBC = iron-binding capacity           IBD = inflammatory bowel disease"
  340.     LOCATE 10, 5
  341.     PRINT "IC = inspiratory capacity             ICF = intracellular fluid"
  342.     LOCATE 11, 5
  343.     PRINT "ICP = intracranial pressure           ICS = intercostal space"
  344.     LOCATE 12, 5
  345.     PRINT "ICU = intensive care unit             I&D = incision and drainage"
  346.     LOCATE 13, 5
  347.     PRINT "I/E = inspiratory expiratory ratio    Ig = immunoglobulin"
  348.     LOCATE 14, 5
  349.     PRINT "IHD = ischemic heart disease         IMF = idiopathic mylofibrosis"
  350.     LOCATE 15, 5
  351.     PRINT "IO = intraocular                     IS = intercostal space"
  352.     LOCATE 16, 5
  353.     PRINT "IU = international unit              IVD = intevertebral disk"
  354.     LOCATE 17, 5
  355.     PRINT "IVF = in vitro fertilization         IVP = intravenous pyelogram"
  356.     LOCATE 18, 5
  357.     PRINT "JOD = juvenile-onset diabetes        JRA = juvenile rheumatoid arthitis"
  358.     LOCATE 19, 5
  359.     PRINT "K = potassium                        KB = ketone bodies"
  360.     LOCATE 20, 5
  361.     PRINT "KCG = kinetocardiogram               KCI = potassium chloride"
  362.     LOCATE 21, 5
  363.     PRINT "KE = kinetic energy                  Kg = kilogram"
  364.     LOCATE 22, 5
  365.     PRINT "L = liter                            LA = left atrium"
  366.     LOCATE 23, 5
  367.     PRINT "LBP = low back pain                  LDL = low-density liprotiens"
  368.     DELAY 10
  369.     GOTO MENU
  370.  
  371.     CASE 6
  372.     CLS
  373.     CALL BBOX
  374.     LOCATE 4, 5
  375.     PRINT "LE = left eye                           LHF = left sided heart faiure"
  376.     LOCATE 5, 5
  377.     PRINT "LLL = left lower lobe                   LLQ = left lower quadrant"
  378.     LOCATE 6, 5
  379.     PRINT "LOM = loss of motion                    LPS = lipase"
  380.     LOCATE 7, 5
  381.     PRINT "LTH = luteotropic hormone               LV = left ventricle"
  382.     LOCATE 8, 5
  383.     PRINT "m= minum                                mcg = microgram"
  384.     LOCATE 9, 5
  385.     PRINT "MEq = milliequivalent                   MFT = muscle function test"
  386.     LOCATE 10, 5
  387.     PRINT "mg = milligram                          mgm = milligram"
  388.     LOCATE 11, 5
  389.     PRINT "mL = milliter                           mm = millimeter"
  390.     LOCATE 12, 5
  391.     PRINT "MM = multiple myeloma                   mon = monocytes"
  392.     LOCATE 13, 5
  393.     PRINT "MP = metacarpal-phalangeal              MSL = midsternal line"
  394.     LOCATE 14, 5
  395.     PRINT "MTD = right ear drum                    MTS = left ear drum"
  396.     LOCATE 15, 5
  397.     PRINT "MTX = methotrexate                      MVP = mitral valve  prolapse"
  398.     LOCATE 16, 5
  399.     PRINT "Na = sodium                             NaCi = sodium chloride"
  400.     LOCATE 17, 5
  401.     PRINT "NBT = nitroblue tetrazoloium            N/C = no complaints"
  402.     LOCATE 18, 5
  403.     PRINT "NGU = nongonococcal urethritis          NHL = non-hodgkin's lymphoma"
  404.     LOCATE 19, 5
  405.     PRINT "NICU = neurological intensive care unit    NG = nasogastic"
  406.     LOCATE 20, 5
  407.     PRINT "noc = night                              NPN = non protein nitrogen"
  408.     LOCATE 21, 5
  409.     PRINT "NPO = nothing by mouth                   NR = no response"
  410.     LOCATE 22, 5
  411.     PRINT "NSR = normal sinus rhythm                NSU = nonspecific urethritis"
  412.     LOCATE 23, 5
  413.     PRINT "Nt = neutralization                      NTG = nitroglycerin"
  414.     DELAY 10
  415.     GOTO MENU
  416.  
  417.     CASE 7
  418.     CLS
  419.     CALL BBOX
  420.     LOCATE 4, 5
  421.     PRINT "N&V = nausea & vomiting               NVA = near visual acuity"
  422.     LOCATE 5, 5
  423.     PRINT "obl = odlique                         OU = each eye"
  424.     LOCATE 6, 5
  425.     PRINT "OBS = organic brain syndrome          obs = obstetrics"
  426.     LOCATE 7, 5
  427.     PRINT "OCC = occasional                      OCD = oral cholecystogram"
  428.     LOCATE 8, 5
  429.     PRINT "OD = overdose                         od = once a day"
  430.     LOCATE 9, 5
  431.     PRINT "OM = otitis media                     OMR = optic mark recognition"
  432.     LOCATE 10, 5
  433.     PRINT "OPV = oral poliovirus vaccine         OS = left eye"
  434.     LOCATE 11, 5
  435.     PRINT "OU = each eye                         O2 = oxygen"
  436.     LOCATE 12, 5
  437.     PRINT "p = after                             P&A = percussion & auscultion"
  438.     LOCATE 13, 5
  439.     PRINT "PABA = paraminobenzoic acid           PAP = papanicolaou"
  440.     LOCATE 14, 5
  441.     PRINT "PAT = paroxysmal atrial tracycardia   PBI = protein-bound iodine"
  442.     LOCATE 15, 5
  443.     PRINT "pc = after meals                      PCT = plasmacrit time"
  444.     LOCATE 16, 5
  445.     PRINT "PFT = pulmonary function test         PID = pelvic inflammatory disease"
  446.     LOCATE 17, 5
  447.     PRINT "PNS = peripheral nervous system       PO = by mouth, orally"
  448.     LOCATE 18, 5
  449.     PRINT "PP = after meals, post partum         PPV = positive pressure ventilation"
  450.     LOCATE 19, 5
  451.     PRINT "Pr = presbyopia, prism                PRA = progressive muscular atrophy"
  452.     LOCATE 20, 5
  453.     PRINT "PREOP = preoperative                  PRN = as needed"
  454.     LOCATE 21, 5
  455.     PRINT "pro-time = prothrombin                PSP = phenolsulfonphthalein"
  456.     LOCATE 22, 5
  457.     PRINT "PTB = patellar tendon bearing         PTE = parathyroid extract"
  458.     LOCATE 23, 5
  459.     PRINT "PWP = pulmonary wedge pressure        Px = prognosis"
  460.     DELAY 10
  461.     GOTO MENU
  462.  
  463.     CASE 8
  464.     CLS
  465.     CALL BBOX
  466.     LOCATE 4, 5
  467.     PRINT "q = every                              qh = every day"
  468.     LOCATE 5, 5
  469.     PRINT "q2h = every 2 hours                    qid = 4 times a day"
  470.     LOCATE 6, 5
  471.     PRINT "qm = every morning                     qn = every night"
  472.     LOCATE 7, 5
  473.     PRINT "qns = quanitity not sufficient         qod = every other day"
  474.     LOCATE 8, 5
  475.     PRINT "qoh = every other hour                 q.q. = each"
  476.     LOCATE 9, 5
  477.     PRINT "R = rectal, right                      Ra = radium"
  478.     LOCATE 10, 5
  479.     PRINT "RAI = radioactive                      RAS = reticular activating system"
  480.     LOCATE 11, 5
  481.     PRINT "RBC = red blood count                  RBE = relative biological effects"
  482.     LOCATE 12, 5
  483.     PRINT "RCA = right coronaryartery             RD = respiratory distress"
  484.     LOCATE 13, 5
  485.     PRINT "RE = right eye                         RFS = renal function study"
  486.     LOCATE 14, 5
  487.     PRINT "RHD= rheumatic heart rate              RIA = radioimmunoassay"
  488.     LOCATE 15, 5
  489.     PRINT "RM = respiratory movement              RNA = ribonucleic acid"
  490.     LOCATE 16, 5
  491.     PRINT "R/O = rule out                         ROP = right occipitis posterior"
  492.     LOCATE 17, 5
  493.     PRINT "ROS = review of systems                RP = retrograde pyelogram"
  494.     LOCATE 18, 5
  495.     PRINT "RPF = renal plasma flow                RQ = respiratory quotient"
  496.     LOCATE 19, 5
  497.     PRINT "R&R = rate and rhythm                  RSR = regular sinus rhythym"
  498.     LOCATE 20, 5
  499.     PRINT "RSV = respiratory syncytial virus      RTA = renal tublar acidosis"
  500.     LOCATE 21, 5
  501.     PRINT "RUL = right upper lobe                 RVS = relative valve schedule"
  502.     LOCATE 22, 5
  503.     PRINT "s = without                            S-A = sinoatrial"
  504.     LOCATE 23, 5
  505.     PRINT "SALD = serum aldolase                  sc = subcutaneous"
  506.     DELAY 10
  507.     GOTO MENU
  508.  
  509.      CASE 9
  510.     CLS
  511.     CALL BBOX
  512.     LOCATE 4, 5
  513.     PRINT "SCA = sickle cell anemia             SCD = sudden cardic death"
  514.     LOCATE 5, 5
  515.     PRINT "seg = segmentation  neutrophils      semi = half"
  516.     LOCATE 6, 5
  517.     PRINT "sev = sever, severed                 s gl = without correction"
  518.     LOCATE 7, 5
  519.     PRINT "SI = saturation index                SLAP = serum leucine aminopeptidase"
  520.     LOCATE 8, 5
  521.     PRINT "SLPS = serum lipase                  SM = simple mastectomy"
  522.     LOCATE 9, 5
  523.     PRINT "sm = small                           SMR = submucous resection"
  524.     LOCATE 10, 5
  525.     PRINT "SO = salpingo-oophorectomy           SOB = shortness of breath"
  526.     LOCATE 11, 5
  527.     PRINT "SOM = serous otitis media            sos = if necessary"
  528.     LOCATE 12, 5
  529.     PRINT "sp gr = specific gravity             SPK = serum pyruvate kinase"
  530.     LOCATE 13, 5
  531.     PRINT "Sr = strontium                       ss = half"
  532.     LOCATE 14, 5
  533.     PRINT "SSE = soap suds enema                STAT = immediately"
  534.     LOCATE 15, 5
  535.     PRINT "subcu = subcutaneous                 SUI = stress urinary incontinence"
  536.     LOCATE 16, 5
  537.     PRINT "SVC = superior vena cava             SVG = saphenous vein graft"
  538.     LOCATE 17, 5
  539.     PRINT "SVN = small volume nebulizer         Sx = symptoms"
  540.     LOCATE 18, 5
  541.     PRINT "T = temperature                      T3 = triiodothyronine"
  542.     LOCATE 19, 5
  543.     PRINT "T4 = thyroxine                       TA = therapeutic abortion"
  544.     LOCATE 20, 5
  545.     PRINT "tab = tablet                         TB = tuberculosis"
  546.     LOCATE 21, 5
  547.     PRINT "TBI = thyroxine-binding index        TBW = total body weight"
  548.     LOCATE 22, 5
  549.     PRINT "Tc = technetium                      TD = total disability"
  550.     LOCATE 23, 5
  551.     PRINT "TDT = tone decay test                TEN = toxic epidermal necrolysis"
  552.     DELAY 10
  553.     GOTO MENU
  554.  
  555.    CASE 10
  556.     CLS
  557.     CALL BBOX
  558.     LOCATE 4, 5
  559.     PRINT "THR = total hip replacement            TIA = transient ischemic attack"
  560.     LOCATE 5, 5
  561.     PRINT "tid = three times a day                TKO = to keep open"
  562.     LOCATE 6, 5
  563.     PRINT "TKR = total knee replacement           TMJ = temporomandibular joint"
  564.     LOCATE 7, 5
  565.     PRINT "TO = telephone order                   TPN = total parenteral nutrition"
  566.     LOCATE 8, 5
  567.     PRINT "TR = tuberculin residue                TRBF = total renal blood flow"
  568.     LOCATE 9, 5
  569.     PRINT "TSD = tay-sachs disease                TSP = total serum protien"
  570.     LOCATE 10, 5
  571.     PRINT "TSS = toxic shock syndrome             TT = thrombin time"
  572.     LOCATE 11, 5
  573.     PRINT "TTH = thyrotropic hormone              TUR = transurethral resection"
  574.     LOCATE 12, 5
  575.     PRINT "U = units                              UA=  urinalysis"
  576.     LOCATE 13, 5
  577.     PRINT "UCR = unconditional reflex             UE = upper extremity"
  578.     LOCATE 14, 5
  579.     PRINT "UFR = uroflowmeter                     UGI = upper gastrointestinal"
  580.     LOCATE 15, 5
  581.     PRINT "UK = unknown                           UL = upper lobe"
  582.     LOCATE 16, 5
  583.     PRINT "UP = uroporphyrin                      UPP = urethral pressure profile"
  584.     LOCATE 17, 5
  585.     PRINT "ur = urine                             URD = upper respiratory disease"
  586.     LOCATE 18, 5
  587.     PRINT "URI = upper respiratory infection      US = ultrasonic"
  588.     LOCATE 19, 5
  589.     PRINT "VEP = visual evoked potential          VER = visual evoked response"
  590.     LOCATE 20, 5
  591.     PRINT "VP = venous pressure                   VS = vital signs"
  592.     LOCATE 21, 5
  593.     PRINT "W = water                              WA = while awake"
  594.     LOCATE 22, 5
  595.     PRINT "WB = whole blood                       WBC = white blood count"
  596.     DELAY 10
  597.     GOTO MENU
  598. END SELECT
  599. END SUB
  600.  
  601. SUB ABOX
  602.     CLS
  603.     SCREEN 9
  604.     COLOR 15
  605.     DRAW "BM 10, 20"
  606.     DRAW "C3 D300 R620 U300 L620"
  607.     PAINT STEP(-1, -1), 1, 3
  608. END SUB
  609.  
  610. SUB BBOX
  611.     CLS
  612.     SCREEN 9
  613.     COLOR 4
  614.     DRAW "BM 10, 20"
  615.     DRAW "C1 D320 R610 U320 L610 BR5 BD5 D310 R600 U310 L600"
  616.     PAINT STEP(-1, -1), 11, 1
  617. END SUB
  618.  
  619. SUB CPR
  620. CMENU:
  621.     CLS
  622.     SCREEN 9
  623.     COLOR 11
  624.     DRAW "BM 150, 115"
  625.     DRAW "C3 D120 R320 U120 L320"
  626.     PAINT STEP(-1, -1), 8, 3
  627.     LOCATE 8, 35
  628.     PRINT " MENU "
  629.     LOCATE 10, 25
  630.     PRINT "(1)=CPR / DIABETIC INFORMATION"
  631.     LOCATE 12, 25
  632.     PRINT "(2)=LAB TESTS AND MEANINGS"
  633.     LOCATE 14, 25
  634.     PRINT "(3)=LAB VALUES"
  635.     LOCATE 16, 25
  636.     PRINT "(4)=QUIT TO MAIN MENU"
  637.     LOCATE 21, 30
  638.     INPUT " Your request is"; CP
  639.  
  640.     SELECT CASE (CP)
  641.       CASE 5 TO 1000
  642.       CLS
  643.       SCREEN 1
  644.       LOCATE 10, 8
  645.       PRINT " YOU ENTERED A WRONG NUMBER!"
  646.       DELAY 2
  647.       GOTO CMENU
  648.  
  649.     CASE 1
  650.        CLS
  651.     SCREEN 9
  652.     COLOR 11
  653.     DRAW "BM 10, 30"
  654.     DRAW "C3 D300 R620 U300 L620"
  655.     PAINT STEP(-1, -1), 8, 3
  656.     LOCATE 4, 4
  657.     PRINT "1 PERSON CPR: Check carotid pulse (LOOK, FEEL, LISTEN) Tilt head, give"
  658.     LOCATE 5, 7
  659.     PRINT "2 breaths 1 to 1 1/2 seconds apart, 15 chest compressions,Count as 1"
  660.     LOCATE 6, 7
  661.     PRINT "and  2 and 3 etc.. Head tilt and 2 breaths etc."
  662.     LOCATE 8, 4
  663.     PRINT "2 PERSON CPR: Same as above except 1 breath to 5 chest compressions."
  664.     LOCATE 9, 7
  665.     PRINT "Check pulse after 10 cycles."
  666.     LOCATE 11, 3
  667.     PRINT "NORMAL BLOOD PRESSURE IS 140/90 TO 90/60  NORMAL PULSE  60-80 beats/minute"
  668.     LOCATE 13, 15
  669.     PRINT "PULSE ABOVE 140 MEANS DANGER AND POSSIBLE STROKE"
  670.     LOCATE 15, 4
  671.     PRINT "HIGH BLOOD PRESSURE: headache, nervousness, pounding pulse."
  672.     LOCATE 17, 5
  673.     PRINT "SHOCK: Low blood pressure, fast pulse, comfusion, pale clammy skin."
  674.     LOCATE 19, 3
  675.     PRINT "NORMAL BLOOD SUGAR RANGE is 70-180 miligrams/desliter. If patient has low"
  676.     LOCATE 20, 5
  677.     PRINT "blood sugar, Watch for nausea, vomiting, shortness of breath, headache,"
  678.     LOCATE 21, 5
  679.     PRINT "fruity smelling breath, drunkness actions. * Give orange juice"
  680.     LOCATE 22, 5
  681.     PRINT "to raise blood sugar very quickly and fast peaking. * Give milk with"
  682.     LOCATE 23, 5
  683.     PRINT "crackers and cheese for slow peaking."
  684.     DELAY 10
  685.     GOTO CMENU
  686.  
  687.     CASE 2
  688.     CLS
  689.     SCREEN 9
  690.     COLOR 11
  691.     DRAW "BM 10, 30"
  692.     DRAW "C3 D300 R620 U300 L620"
  693.     PAINT STEP(-1, -1), 8, 3
  694.     LOCATE 4, 4
  695.     PRINT " BUN: BUN is known as blood urea nitrogen, it is one of waste products"
  696.     LOCATE 5, 6
  697.     PRINT "produced when protien is used by the body. Your BUN level is affected"
  698.     LOCATE 6, 6
  699.     PRINT "by the amount of protein in your diet. "
  700.     LOCATE 8, 4
  701.     PRINT "CREATININE: It is another one of the waste products. A sudden elevation"
  702.     LOCATE 9, 6
  703.     PRINT "of creatinine may indicate muscle wasting or damage, increased muscle"
  704.     LOCATE 10, 6
  705.     PRINT "mass, or additional loss of remaining kidney function. Your creatine"
  706.     LOCATE 11, 6
  707.     PRINT "level is usually not effected by your diet"
  708.     LOCATE 13, 4
  709.     PRINT "ALBUMIN: It is one type of blood protien. Albumin plays a role in"
  710.     LOCATE 14, 6
  711.     PRINT "maintaining the exchange of fluid between the blood and the body"
  712.     LOCATE 15, 6
  713.     PRINT "tissues. Low levelsw may be a result of poor protien intake."
  714.     LOCATE 17, 4
  715.     PRINT "PROTEIN INTAKE: Protien is vital to all living cells helping to"
  716.     LOCATE 18, 6
  717.     PRINT "build and repair body tissues (including skin, bone, and muscle)"
  718.     LOCATE 20, 4
  719.     PRINT "POTASSIUM: Is a mineral that maintains normal nerve and muscle"
  720.     LOCATE 21, 6
  721.     PRINT "function. High or low levels of potassium can cause irregular heart"
  722.     LOCATE 22, 6
  723.     PRINT "beats or even cause the heart to stop. Your potassium level is"
  724.     LOCATE 23, 6
  725.     PRINT "affected by your diet."
  726.     LOCATE 25, 2
  727.     INPUT " Continue (Y/N) "; An$
  728.     IF (UCASE$(An$)) = "N" THEN
  729.     GOTO CMENU
  730.     ELSEIF (UCASE$(An$)) = "Y" THEN
  731.     END IF
  732.  
  733.     CLS
  734.     SCREEN 9
  735.     COLOR 11
  736.     DRAW "BM 10, 15"
  737.     DRAW "C3 D300 R620 U300 L620"
  738.     PAINT STEP(-1, -1), 8, 3
  739.     LOCATE 4, 4
  740.     PRINT "PHOSPHOROUS/CALCIUM: These two work together to build strong bones. If"
  741.     LOCATE 5, 6
  742.     PRINT "phosphorous and calcium are not in good balance your bones become"
  743.     LOCATE 6, 6
  744.     PRINT "fragile and break easily. These levels are affected by your diet and"
  745.     LOCATE 7, 6
  746.     PRINT "certain medications."
  747.     LOCATE 9, 4
  748.     PRINT "BLOOD SUGAR: Is glucose and is used by cells of the body to produce energy."
  749.     LOCATE 10, 6
  750.     PRINT "When this level falls below normal a diet change may be needed."
  751.     LOCATE 12, 4
  752.     PRINT "FLUID GAINS: High levels can lead to edema (edema in hands or feet), high"
  753.     LOCATE 13, 6
  754.     PRINT "blood pressure and shortness of breath. Excess fluid removal may cause"
  755.     LOCATE 14, 6
  756.     PRINT "severe cramping. Eating salty foods and drinking too much fluids directly"
  757.     LOCATE 15, 6
  758.     PRINT "effect your fluid gains."
  759.     LOCATE 17, 4
  760.     PRINT "CHOLESTEROL/TRIGLYCERIDES: Cholesterol and triglycerides are fatty"
  761.     LOCATE 18, 6
  762.     PRINT "substances in the blood. High levels may lead to heart and blood vessel"
  763.     LOCATE 19, 6
  764.     PRINT "disease. These levels are affected by your diet, heredity and stress."
  765.     DELAY 10
  766.     GOTO CMENU
  767.  
  768.     CASE 3
  769.     CLS
  770.     SCREEN 9
  771.     COLOR 11
  772.     DRAW "BM 10, 30"
  773.     DRAW "C3 D300 R620 U300 L620"
  774.     PAINT STEP(-1, -1), 8, 3
  775.     DRAW "BM 220,80"
  776.     DRAW "C3 D200 R140 U200 L140 R240 D200 L100 U200 R100"
  777.     LOCATE 2, 35
  778.     PRINT "LAB VALUES"
  779.     LOCATE 5, 32
  780.     PRINT "TEST             RANGE"
  781.     LOCATE 7, 30
  782.     PRINT "ALBUMIN"
  783.     LOCATE 7, 47
  784.     PRINT "3.5 - 5.0"
  785.     LOCATE 9, 30
  786.     PRINT "PROTIEN INTAKE"
  787.     LOCATE 9, 47
  788.     PRINT ".8 - 1.4"
  789.     LOCATE 11, 30
  790.     PRINT "POTASSIUM"
  791.     LOCATE 11, 47
  792.     PRINT "3.5 - 6.0"
  793.     LOCATE 13, 30
  794.     PRINT "PHOSPHORUS"
  795.     LOCATE 13, 47
  796.     PRINT "3.5 - 6.0"
  797.     LOCATE 15, 30
  798.     PRINT "CALCIUM"
  799.     LOCATE 15, 47
  800.     PRINT "8.5 - 11.5"
  801.     LOCATE 17, 30
  802.     PRINT "BLOOD SUGAR"
  803.     LOCATE 17, 47
  804.     PRINT "70 - 180"
  805.     LOCATE 19, 30
  806.     PRINT "FLUID GAINS"
  807.     LOCATE 19, 47
  808.     PRINT "< 3 KG"
  809.     DELAY 10
  810.     GOTO CMENU
  811.  
  812.   CASE 4
  813.     GOTO MMENU
  814.  
  815. END SELECT
  816. END SUB
  817.  
  818. SUB MBOX
  819.     CLS
  820.     SCREEN 9
  821.     COLOR 15
  822.     DRAW "BM 12, 26"
  823.     DRAW "C3 D300 R620 U300 L620"
  824.     PAINT STEP(-1, -1), 11, 3
  825. END SUB
  826.  
  827. SUB MEDCAT
  828.     CALL ABOX
  829.     LOCATE 1, 30
  830.     PRINT " Med categories "
  831.     LOCATE 3, 3
  832.     PRINT "ACE INHIBITORS = Drugs that interfere with the action of a substance "
  833.     LOCATE 4, 5
  834.     PRINT "called angiotensin-converting enzyme and there by blocks one of the"
  835.     LOCATE 5, 5
  836.     PRINT "stages in a chain of biochemical reactions that controll blood pressure."
  837.     LOCATE 7, 3
  838.     PRINT "ANTINEOPLASTIC = Prevents the growth of malignant cells used in treatment"
  839.     LOCATE 8, 5
  840.     PRINT "of cancer, Also called CYTOTOXICS."
  841.     LOCATE 10, 3
  842.     PRINT "ANTITUSSIVES = A drug that relieves or helps prevent coughing."
  843.     LOCATE 12, 3
  844.     PRINT "ANTHELMINTICS = A drug that destroys parasitic intestinal worms"
  845.     LOCATE 14, 3
  846.     PRINT "ANTISPASMODIC = Drugs for reducing spasm of the bowel to relieve the pain"
  847.     LOCATE 15, 5
  848.     PRINT "in conditions such as irritable colon or diverticular disease."
  849.     LOCATE 17, 3
  850.     PRINT "ANTIBIOTICS =Natural/synthetic substances that combat bacterial infections."
  851.     LOCATE 18, 5
  852.     PRINT "broad spectrum antibiotics are effective against a wide range of bacterial"
  853.     LOCATE 20, 3
  854.     PRINT "ANTILIPEMICS =Drug that counteracts accumulation of fatty tissue in blood."
  855.     LOCATE 22, 3
  856.     PRINT "ANTIDEPRESSANTS = Prevents or relieves the effects of depression. The most"
  857.  
  858.         LOCATE 25, 2
  859.         INPUT " Continue (Y/N) "; An$
  860.         IF (UCASE$(An$)) = "N" THEN
  861.         GOTO MMENU
  862.         ELSEIF (UCASE$(An$)) = "Y" THEN
  863.     END IF
  864.     
  865.         CALL ABOX
  866.     LOCATE 3, 3
  867.     PRINT "ANTIHISTIMINE = A drug that counter acts the effects of histimine. They"
  868.     LOCATE 4, 5
  869.     PRINT "are the common ingredients in cold remedies."
  870.     LOCATE 6, 3
  871.     PRINT "ANTIINFLAMMATORY = A drug used to counter act or reduce inflammation -the"
  872.     LOCATE 7, 5
  873.     PRINT "redness heat, swelling and increased blood flow found in infections and"
  874.     LOCATE 8, 5
  875.     PRINT "in many chronic noninfective diseases."
  876.     LOCATE 10, 3
  877.     PRINT "ANTIMETICS = Drugs that are used to treat nausea and vomiting. Certain "
  878.     LOCATE 11, 5
  879.     PRINT "Antihistamines, antispasmotics are commonly used as antimetics."
  880.     LOCATE 13, 3
  881.     PRINT "ANTIVIRAL = A drug that treats viral infections or to provide temporary"
  882.     LOCATE 14, 5
  883.     PRINT "protection against infections such as influenza."
  884.     LOCATE 16, 3
  885.     PRINT "ANALGESICS = Drug that relieves pain. Main types are nonnarcotic and  for"
  886.     LOCATE 17, 5
  887.     PRINT "mild pain and narcotic (opium based) for severe pain."
  888.     LOCATE 19, 3
  889.     PRINT "ANTIACIDS = Drugs that relieve indigestion and heart burn by neutralizing"
  890.     LOCATE 20, 5
  891.     PRINT "the effects of the stomachs acid."
  892.     
  893.        LOCATE 25, 2
  894.        INPUT " Continue (Y/N) "; An$
  895.        IF (UCASE$(An$)) = "N" THEN
  896.        GOTO MMENU
  897.        ELSEIF (UCASE$(An$)) = "Y" THEN
  898.        END IF
  899.     
  900.        CALL ABOX
  901.     LOCATE 3, 3
  902.     PRINT "ANTIARRHYTHMICS = Drugs that are used to control irregularities of the"
  903.     LOCATE 4, 5
  904.     PRINT "heart beat.                                                        "
  905.     LOCATE 6, 3
  906.     PRINT "ANTITIVIRALS = Drugs that are used to treat viral infections or to"
  907.     LOCATE 7, 5
  908.     PRINT "provide temporary protection against infections such as influenza."
  909.     LOCATE 9, 3
  910.     PRINT "BARBITURATES = A group of drugs made from organic compounds derived from"
  911.     LOCATE 10, 5
  912.     PRINT "barbituric acid. They depress the C.N.S., respiration, lowering blood"
  913.     LOCATE 11, 5
  914.     PRINT "pressure. Replaced by Benzodiazepine's. "
  915.     LOCATE 13, 3
  916.     PRINT "BENZODIAZEPINES =Drugs that are chemically similar to psychotropic drugs"
  917.     LOCATE 14, 5
  918.     PRINT "with potental hypnotic and sedative action. Used predomantly for"
  919.     LOCATE 15, 5
  920.     PRINT "antianxiety and sleep induction. "
  921.     LOCATE 17, 3
  922.     PRINT "BRONCHODILATORS = Drugs that open up the bronchial tubes when the tubes"
  923.     LOCATE 18, 5
  924.     PRINT "become narrowed by muscle spasm. "
  925.     LOCATE 20, 3
  926.     PRINT "BETA BLOCKERS = Drugs that reduce the oxygen needs of the heart by"
  927.     LOCATE 21, 5
  928.     PRINT "reducing the heart beat rate. They are used as Antihypertensives"
  929.     
  930.         LOCATE 25, 2
  931.     INPUT " Continue (Y/N) "; An$
  932.     IF (UCASE$(An$)) = "N" THEN
  933.     GOTO MMENU
  934.     ELSEIF (UCASE$(An$)) = "Y" THEN
  935.     END IF
  936.     
  937.         CALL ABOX
  938.     LOCATE 3, 3
  939.     PRINT "CALCIUM CHANNEL BLOCKERS = This group of drugs slow down the calcium "
  940.     LOCATE 4, 5
  941.     PRINT "movement through cell membranes, dilate blood vessels and reduce the"
  942.     LOCATE 5, 5
  943.     PRINT "hearts work load."
  944.     LOCATE 7, 3
  945.     PRINT "CHOLINERGICS = A drug that produces the effect of acetylcholine."
  946.     LOCATE 9, 3
  947.     PRINT "DIURETIC = A drug that increases urine secretion thus ridding the body of"
  948.     LOCATE 10, 5
  949.     PRINT "excess fluid."
  950.     LOCATE 12, 3
  951.     PRINT "DECONGESTANTS = Drugs that reduce swelling of the mucous membranes that"
  952.     LOCATE 13, 5
  953.     PRINT "line the nose by constricting the blood vessels."
  954.     LOCATE 15, 3
  955.     PRINT "EMETIC = A drug that promotes vomiting."
  956.     LOCATE 17, 3
  957.     PRINT "EXPECTORANTS = A drug that stimulates the flow of saliva and promotes"
  958.     LOCATE 18, 5
  959.     PRINT "coughing to eliminate phlegm from the respiratory tract."
  960.     LOCATE 20, 3
  961.     PRINT "HEMATINICS = A drug that increases the amount of hemoglobin in the blood"
  962.     LOCATE 21, 5
  963.     PRINT "stream."
  964.     
  965.         LOCATE 25, 2
  966.     INPUT " Continue (Y/N) "; An$
  967.     IF (UCASE$(An$)) = "N" THEN
  968.     GOTO MMENU
  969.     ELSEIF (UCASE$(An$)) = "Y" THEN
  970.     END IF
  971.     
  972.         CALL ABOX
  973.     LOCATE 3, 3
  974.     PRINT "IMMUNOSUPPRESIVES = Drugs that prevent or reduce the bodys normal reaction"
  975.     LOCATE 4, 5
  976.     PRINT "to invasion by disease or by foreign tissues."
  977.     LOCATE 6, 3
  978.     PRINT "MIOTICS = A agent that causes the eyes to contract."
  979.     LOCATE 8, 3
  980.     PRINT "MYDRIATICS = A drug that causes the eyes to dilate."
  981.     LOCATE 10, 3
  982.     PRINT "NITRITATES =The salt of nitrous acid. These drugs dilate the blood vessels,"
  983.     LOCATE 11, 5
  984.     PRINT "reduce blood pressure and depresses motor centers of the spinal cord."
  985.     LOCATE 13, 3
  986.     PRINT "OXYTOCICS = Drugs that stimulate uterine contractions. "
  987.     LOCATE 15, 3
  988.     PRINT "PSYCHOTROPIC = A drug used to treat emotional and mental disorders."
  989.     LOCATE 17, 3
  990.     PRINT "PHENOTHIAZINES = A compound used in tranquilzers. "
  991.     LOCATE 19, 3
  992.     PRINT "SALICYLATES = A drug that is used to reduce pain or fever."
  993.     LOCATE 21, 3
  994.     PRINT "SCABICIDES = A drug that is caustic to the itch mites (arachnid)."
  995.     
  996.         LOCATE 25, 2
  997.     INPUT " Continue (Y/N) "; An$
  998.     IF (UCASE$(An$)) = "N" THEN
  999.     GOTO MMENU
  1000.     ELSEIF (UCASE$(An$)) = "Y" THEN
  1001.     END IF
  1002.     
  1003.         CALL ABOX
  1004.     LOCATE 3, 3
  1005.     PRINT "SEDATIVE = Drug that produces a calming, relaxing or soothing effect on "
  1006.     LOCATE 4, 5
  1007.     PRINT "central nervous system. It can also produce sleep. "
  1008.     LOCATE 6, 3
  1009.     PRINT "TRANQUILIZERS = A drug that acts to reduce mental tension and anxiety"
  1010.     LOCATE 7, 5
  1011.     PRINT "without interfering with normal mental activity."
  1012.     LOCATE 9, 3
  1013.     PRINT "VASODILATOR = Drugs that causes relaxion of the blood vessels, thus "
  1014.     LOCATE 10, 5
  1015.     PRINT "thus increasing their size. Used to prevent and treat angina and are"
  1016.     LOCATE 11, 5
  1017.     PRINT "also useful for treating heart failure and certain circulatory"
  1018.     LOCATE 12, 5
  1019.     PRINT "disorders. "
  1020.     LOCATE 18, 35
  1021.     PRINT "The End"
  1022.     DELAY 10
  1023.     GOTO MMENU
  1024. END SUB
  1025.  
  1026. SUB PHONE
  1027.     CLS
  1028.     SCREEN 9
  1029.     DRAW "BM 30, 18"
  1030.     DRAW "C4 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1031.     PAINT STEP(-1, -1), 2, 4
  1032.     LOCATE 2, 22
  1033.     PRINT "NATIONAL MEDICAL HOTLINE PHONE NUMBERS"
  1034.     LOCATE 5, 7
  1035.     PRINT "AIDS  800-462-1884                     AIDS  800-342-AIDS"
  1036.     LOCATE 6, 7
  1037.     PRINT "ACNE  800-235-ACNE                     ALCOHOL  800-ALCOHOL"
  1038.     LOCATE 7, 7
  1039.     PRINT "ALZHEIMERS  800-621-379                ANOREXIA  (201)836-1800"
  1040.     LOCATE 8, 7
  1041.     PRINT "BLINDNESS  800-424-8666                BULIMIA  (201)838-1800"
  1042.     LOCATE 9, 7
  1043.     PRINT "CANCER  800-4 CANCER                   CHILD ABUSE  800-442-4553"
  1044.     LOCATE 10, 7
  1045.     PRINT "CYSTIC FIBROSIS  800-FIGHT-CF          DIABETES  800-223-1138"
  1046.     LOCATE 11, 7
  1047.     PRINT "DIVING ACC  (919)684-8111              DRUG ABUSE   800-662-HELP"
  1048.     LOCATE 12, 7
  1049.     PRINT "EXPERIMENTAL DRUGS  800-822-7422       HEARING HDCP  800-442-8574"
  1050.     LOCATE 13, 7
  1051.     PRINT "HEART  800-241-6993                    HEMOPHILIA  (212)219-8180"
  1052.     LOCATE 14, 7
  1053.     PRINT "KIDNEY  800-638-8299                   LUPUS  800-558-121"
  1054.     LOCATE 15, 7
  1055.     PRINT "MEDICARE  800-462-9306                 MEDIC ALERT  800-344-3226"
  1056.     LOCATE 16, 7
  1057.     PRINT "MISSING CHILDREN  800-843-5681         PARKINSONS  800-327-4545"
  1058.     LOCATE 17, 7
  1059.     PRINT "PESTICIDES  800-858-7378               RESPIRATORY  800-222-LUNG"
  1060.     LOCATE 18, 7
  1061.     PRINT "ORGAN DONATION  800-528-2871         SEXUAL ADDICATION  800-622-949"
  1062.     LOCATE 19, 7
  1063.     PRINT "SNAKE ANTIVENIN  800-522-4611          SPINAL BIFIDA  800-621-3141"
  1064.     LOCATE 20, 7
  1065.     PRINT "SURGERY 800-638-6833"
  1066.     DELAY 15
  1067.     GOTO MMENU
  1068. END SUB
  1069.  
  1070. SUB SUFF
  1071. SMENU:
  1072.     CLS
  1073.     SCREEN 9
  1074.     DRAW "BM 35, 45"
  1075.     DRAW "C2 D220 R560 F5 L560 H5 U220 R180 D40 R190 U40 L190 R380 D220 F5 U220 H5"
  1076.     PAINT STEP(-1, -1), 4, 2
  1077.     LOCATE 5, 28
  1078.     PRINT " Suffixes and prefixes "
  1079.     LOCATE 6, 36
  1080.     PRINT " Menu "
  1081.     LOCATE 9, 8
  1082.     PRINT " 1 = A - BRADY "
  1083.     LOCATE 11, 20
  1084.     PRINT " 2 = BURS/O - DENDR/O "
  1085.     LOCATE 13, 32
  1086.     PRINT " 3 = -DESIS - -GLOBIN "
  1087.     LOCATE 15, 48
  1088.     PRINT " 4 = -GOGUE - -OMA "
  1089.     LOCATE 17, 56
  1090.     PRINT " 5 = PHIL/O - SUB- "
  1091.     LOCATE 17, 8
  1092.     PRINT " 6 = QUIT TO MAIN MENU "
  1093.     LOCATE 24, 30
  1094.     INPUT " Your request is"; AB
  1095.     SELECT CASE (AB)
  1096.     CASE 6
  1097.     GOTO MMENU
  1098.  
  1099.     CASE 7 TO 1000
  1100.     SCREEN 1
  1101.     LOCATE 10, 8
  1102.     PRINT " YOU ENTERED A WRONG NUMBER!"
  1103.     DELAY 2
  1104.     GOTO SMENU
  1105.  
  1106.     CASE 1
  1107.     CLS
  1108.     SCREEN 9
  1109.     DRAW "BM 35, 16"
  1110.     DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1111.     PAINT STEP(-1, -1), 4, 2
  1112.  
  1113.     LOCATE 4, 8
  1114.     PRINT "A- = away from                         ADIP / O = Fat"
  1115.     LOCATE 6, 8
  1116.     PRINT "-ABLE = capable of                     -AMEMIA = Blood "
  1117.     LOCATE 8, 8
  1118.     PRINT "ABRAD/O = rub or scrape off            AL- = pertaining to"
  1119.     LOCATE 10, 8
  1120.     PRINT "AC- = toward                           ALGI- = suffering"
  1121.     LOCATE 12, 8
  1122.     PRINT "-AC = pertaining to                    AMERT/O = out of proportion"
  1123.     LOCATE 14, 8
  1124.     PRINT "ACR/O = extremiities, top, point       AP- =toward, to"
  1125.     LOCATE 16, 8
  1126.     PRINT "AD-  = toward, to                      APO - from, detacted"
  1127.     LOCATE 18, 8
  1128.     PRINT "-AGO = Attack                       ANGI/O = Blood or lymph vessels."
  1129.     LOCATE 20, 8
  1130.     PRINT "ARTHR/O = Joint                        BRADY = Slow"
  1131.     DELAY 15
  1132.     GOTO SMENU
  1133.  
  1134.     CASE 2
  1135.     CLS
  1136.     SCREEN 9
  1137.     DRAW "BM 35, 16"
  1138.     DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1139.     PAINT STEP(-1, -1), 4, 2
  1140.  
  1141.     LOCATE 4, 8
  1142.     PRINT "BURS/O = Sack or fluid near a joint                   BRACHY- short"
  1143.     LOCATE 6, 8
  1144.     PRINT "BIO- = pertaining to life                   BUCC = Inside the cheek."
  1145.     LOCATE 8, 8
  1146.     PRINT "CARDI/O = heart                                       CERA- = wax"
  1147.     LOCATE 10, 8
  1148.     PRINT "-CENTESIS = surgical puncture to remove fluid  CARCIN/O = Cancerious"
  1149.     LOCATE 12, 8
  1150.     PRINT "-CRIT = separate                                CRY/O = cold"
  1151.     LOCATE 14, 8
  1152.     PRINT "CARDI/O = Heart                                 CYAN/O = blue"
  1153.     LOCATE 16, 8
  1154.     PRINT "-CRASIA = mixture or blending                   CORT-  = covering"
  1155.     LOCATE 18, 8
  1156.     PRINT "-CYYIC = pertaining to a cell          -CYTOSIS = condition of cells"
  1157.     LOCATE 20, 8
  1158.     PRINT "DE- = from, not, lack of                 DENDR/O = resembling a tree"
  1159.     DELAY 15
  1160.     GOTO SMENU
  1161.  
  1162.     CASE 3
  1163.     CLS
  1164.     SCREEN 9
  1165.     DRAW "BM 35, 16"
  1166.     DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1167.     PAINT STEP(-1, -1), 4, 2
  1168.  
  1169.     LOCATE 4, 8
  1170.     PRINT "-DESIS = bind, tie together               DIA- = through, between"
  1171.     LOCATE 6, 8
  1172.     PRINT "DI- = double, apart from, two             DYS- = difficult, painfull"
  1173.     LOCATE 8, 8
  1174.     PRINT "E- = out of, from                         -ECTOMY = surgical removal"
  1175.     LOCATE 10, 8
  1176.     PRINT "EM- = in                                  EN- = in, into, within"
  1177.     LOCATE 12, 8
  1178.     PRINT "EOSIN / O = red, rosey                    ESTR/O = female"
  1179.     LOCATE 14, 8
  1180.     PRINT "EXTRA- = on the outside                   -FIC = making, producing"
  1181.     LOCATE 16, 8
  1182.     PRINT "FISS/O = crack, split                     FOLL/I = bag, sac"
  1183.     LOCATE 18, 8
  1184.     PRINT "-FUGE = to drive away                     -FUSION = pour"
  1185.     LOCATE 20, 8
  1186.     PRINT "-GENIC = producing, forming               -GLOBIN = protein "
  1187.     DELAY 15
  1188.     GOTO SMENU
  1189.  
  1190.     CASE 4
  1191.     CLS
  1192.     SCREEN 9
  1193.     DRAW "BM 35, 16"
  1194.     DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1195.     PAINT STEP(-1, -1), 4, 2
  1196.  
  1197.     LOCATE 4, 8
  1198.     PRINT "-GOGUE = make flow                         GON/E = seed"
  1199.     LOCATE 6, 8
  1200.     PRINT "HEM- = relating to blood                   HEMI- = half"
  1201.     LOCATE 8, 8
  1202.     PRINT "-IAC = pertaining to                       -IASIS = condition"
  1203.     LOCATE 10, 8
  1204.     PRINT "-IFIC = making, producing                  -IGO = attack"
  1205.     LOCATE 12, 8
  1206.     PRINT "-ILE = capible of(being)                   INFRA- = beneath, below"
  1207.     LOCATE 14, 8
  1208.     PRINT "-KINSIS = motion                           LUMIN/O = light"
  1209.     LOCATE 16, 8
  1210.     PRINT "MAL- = bad, poor                           NECR/O = die"
  1211.     LOCATE 18, 8
  1212.     PRINT "OB- = against                              -OMA = tumor"
  1213.     LOCATE 20, 8
  1214.     PRINT "PHIL/O = to like to love, attraqction     PLIC/o = fold or ridge"
  1215.  
  1216.     DELAY 15
  1217.     GOTO SMENU
  1218.  
  1219.     CASE 5
  1220.     CLS
  1221.     SCREEN 9
  1222.     DRAW "BM 35, 20"
  1223.     DRAW "C2 D290 R570 F5 L570 H5 U290 R570 D290 F5 U290 H5"
  1224.     PAINT STEP(-1, -1), 4, 2
  1225.  
  1226.     LOCATE 6, 8
  1227.     PRINT "PY/O = pus                                RE- = back, again"
  1228.     LOCATE 8, 8
  1229.     PRINT "-RAPHY = suturing, stitching              SANGU/O = blood"
  1230.     LOCATE 10, 8
  1231.     PRINT "SEPS/O = infection                        SUB- = under, less ,below"
  1232.     LOCATE 14, 35
  1233.     PRINT "The End"
  1234.     DELAY 15
  1235.     END SELECT
  1236.     GOTO SMENU
  1237.  
  1238.  
  1239. END SUB
  1240.  
  1241. SUB THERCAT
  1242. DMENU:
  1243.     CLS
  1244.     SCREEN 9
  1245.     COLOR 15
  1246.     DRAW "BM 35, 45"
  1247.     DRAW "C3 D220 R560 F5 L560 H5 U220 R180 D40 R190 U40 L190 R380 D220 F5 U220 H5"
  1248.     PAINT STEP(-1, -1), 11, 3
  1249.     LOCATE 5, 26
  1250.     PRINT " Medication Classifications"
  1251.     LOCATE 6, 36
  1252.     PRINT " Menu "
  1253.     LOCATE 9, 12
  1254.     PRINT "(1) = A'S                              (8) = NVS - PSP"
  1255.     LOCATE 10, 12
  1256.     PRINT "(2) = B - CIS                          (9) = PTB - RQ"
  1257.     LOCATE 11, 12
  1258.     PRINT "(3) = CLD - DR                         (10) = R&R - SUI"
  1259.     LOCATE 12, 12
  1260.     PRINT "(4) = DSD - FU                         (11) = SV - TW"
  1261.     LOCATE 13, 12
  1262.     PRINT "(5) = G - IC                           (12) = U - WBC"
  1263.     LOCATE 14, 12
  1264.     PRINT "(6) = ICP - LV                         (13) = WBC - Z"
  1265.     LOCATE 15, 12
  1266.     PRINT "(7) = m - NVA                          (14) = Quit to main"
  1267.         LOCATE 21, 30
  1268.     INPUT " Your request is"; AM
  1269.  
  1270.     SELECT CASE (AM)
  1271.  
  1272.     CASE 15 TO 1000
  1273.       CLS
  1274.       SCREEN 1
  1275.       LOCATE 10, 8
  1276.       PRINT " YOU ENTERED A WRONG NUMBER!"
  1277.       DELAY 2
  1278.       GOTO DMENU
  1279.  
  1280.     CASE 14
  1281.     GOTO MMENU
  1282.  
  1283.     CASE 1
  1284.     CALL MBOX
  1285.     LOCATE 4, 5
  1286.     PRINT "ACETAMINOPHEN, ANACIN-3, TYLENOL----NONNARCOTIC, ANALGESIC, ANTIPYRETIC"
  1287.     LOCATE 5, 5
  1288.     PRINT "ACTIFED C, PSEUDOPHRINE----DECONGESTANT (SYMPATHOMETICS)"
  1289.     LOCATE 6, 5
  1290.     PRINT "ADAPIN, DOXEPIN, SINEQUAN----ANTIDEPRESSANT"
  1291.     LOCATE 7, 5
  1292.     PRINT "AFRIN, OXYMETAZOLINE HYDROCLORIDE--DECONGESTANT, VASOCONSTRICTOR"
  1293.     LOCATE 8, 5
  1294.     PRINT "ALDACTONE, SPIRONOLACTONE----POTASSIUM SPARING DIURETIC"
  1295.     LOCATE 9, 5
  1296.     PRINT "ALUPENT, METAPROTERENOL, METAPREL, ALZAPAM----BRONCHODILATOR"
  1297.     LOCATE 10, 5
  1298.     PRINT "AMNOPHYLIONE, AMINOPENICILIN----PENCILLIN ANTIBIOTIC"
  1299.     LOCATE 11, 5
  1300.     PRINT "AMOXICILLIN, AMOXIL----PENICILLIN ANTIBIOTIC"
  1301.     LOCATE 12, 5
  1302.     PRINT "AMPHOJEL, ALUMINUM HYDROXIDE----ANTIACID, ADSORBENT"
  1303.     LOCATE 13, 5
  1304.     PRINT "AMPICILLIN, AMCILL, AMPILLEAN, POLYCILLIN----PENICILLIN ANTIBIOTIC"
  1305.     LOCATE 14, 5
  1306.     PRINT "APRESOLINE, HYDRALAZINE HYDROCHLORIDE----ANTIHYPERTENSIVE"
  1307.     LOCATE 15, 5
  1308.     PRINT "ARTIFICIAL TEARS/ADAPETTES, LIQUIFILM TEARS-----DEMULCENT"
  1309.     LOCATE 16, 5
  1310.     PRINT "ASPIRIN, ASA, ECOTRIN----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
  1311.     LOCATE 17, 5
  1312.     PRINT "ATARAX, HYDROXYZINE HYDROCHLORIDE----ANTIANXIETY,ANTIMETIC,ANTIPRURITIC"
  1313.     LOCATE 18, 5
  1314.     PRINT "ATIVAN, LORAZEPAN----ANTIANXIETY, SEDATIVE, HYPNOTIC"
  1315.     LOCATE 19, 5
  1316.     PRINT "ATROPINE----ANTIARRHYTHMIC, CHOLINERGIC BLOCKER"
  1317.     LOCATE 20, 5
  1318.     PRINT "AUGEMENTIN, AMOXICILLIN, POTASSIUM CLAVULANATE----PENICILLIN"
  1319.     LOCATE 21, 5
  1320.     PRINT "AZLOCILLIN, AZIN----PENICILLIN ANTIBIOTIC"
  1321.     LOCATE 22, 5
  1322.     PRINT "AZATHIOPRINE, IMURAN---- IMMUNSUPPRESSIVE"
  1323.     DELAY 10
  1324.     GOTO DMENU
  1325.  
  1326.    CASE 2
  1327.     CALL MBOX
  1328.     LOCATE 4, 5
  1329.     PRINT "BACTRIM, SEPTRA, CO-TRIMOXAZOLE+TRIMETHOPRIMSOL----ANTIBIOTIC"
  1330.     LOCATE 5, 5
  1331.     PRINT "BACTROBAN, MUPIROCIN----TOPICAL ANTIBIOTIC"
  1332.     LOCATE 6, 5
  1333.     PRINT "BECLOVENT, BECLOMETHASONE, VANCERIL----GLUCORTICOID"
  1334.     LOCATE 7, 5
  1335.     PRINT "BENADRYL, DEPHENHYDRAMINE----ANTIHISTAMINE"
  1336.     LOCATE 8, 5
  1337.     PRINT "BENZOCAINE, ORA-JEL, AMERICAINE----ANESTHETIC"
  1338.     LOCATE 9, 5
  1339.     PRINT "BETADINE, POVIDONE-IODINE----GERMICIDE"
  1340.     LOCATE 10, 5
  1341.     PRINT "BETAOPTIC, BETAXOLOL HYDROCHLORIDE----ANTIGLAUCOMA AGENT"
  1342.     LOCATE 11, 5
  1343.     PRINT "BISACODYL, DULCOLAX----STIMULANT LAXATIVE"
  1344.     LOCATE 12, 5
  1345.     PRINT "BLEOMYCIN SULFATE, BLENOXANE----ANTIBIOTIC, ANTINEOPLASTIC AGENT"
  1346.     LOCATE 13, 5
  1347.     PRINT "BRETHINE, TERBUTALINE, BREATHAIRE----ADRENERGIC BRONCHODILATOR"
  1348.     LOCATE 14, 5
  1349.     PRINT "BRETYLIUM, BRETYLATE----ANTIARRHYTHMIC"
  1350.     LOCATE 15, 5
  1351.     PRINT "BUMEX, BUMETANIDE----LOOP DIURETIC"
  1352.     LOCATE 16, 5
  1353.     PRINT "BUPRENEX, BUPRENORPHINE----NARCOTIC ANALGESIC"
  1354.     LOCATE 17, 5
  1355.     PRINT "BUSPAR, BUSPIRONE----ANTIANXIETY AGENT"
  1356.     LOCATE 18, 5
  1357.     PRINT "BUTALAN, BUTABARBITAL----SEDATIVE, HYPNOTIC"
  1358.     LOCATE 19, 5
  1359.     PRINT "CALAN, ISOPTIN----ANTIANGINAL, ANTIHYPERTENSIVE, ANTIARRHYTHMIC"
  1360.     LOCATE 20, 5
  1361.     PRINT "CALCIUM POLYCARBOPHIL, FIBERCON----BULK LAXATIVE, ANTIDIARRHEAL"
  1362.     LOCATE 21, 5
  1363.     PRINT "CALCIUM CARBONATE, TUMS E/X, OS-CAL, ALKA-Z----ANTIACID"
  1364.     LOCATE 22, 5
  1365.     PRINT "CAPOTEN, CAPTOPRIL----ANTIHYPERTENSIVE"
  1366.     LOCATE 23, 5
  1367.     PRINT "CARAFATE, SUCRAFATE----ANTIULCER AGENT"
  1368.     DELAY 10
  1369.     GOTO DMENU
  1370.  
  1371.    CASE 3
  1372.     CALL MBOX
  1373.     LOCATE 4, 5
  1374.     PRINT "CARDIZEM, DILTIAZEM HYDROCHLORIDE----ANTIANGINAL"
  1375.     LOCATE 5, 5
  1376.     PRINT "CASTOR OIL, ALPHAMUL, PURGE----STIMULANT LAXATIVE"
  1377.     LOCATE 6, 5
  1378.     PRINT "CATAPRESS, CLONIDINE HYDROCHLORIDE----ANTIHYPERTENSIVE"
  1379.     LOCATE 7, 5
  1380.     PRINT "CECLOR, CEFACTOR----ANTIBIOTIC"
  1381.     LOCATE 8, 5
  1382.     PRINT "CEFOBID, CEFOPERAZONE SODIUM----ANTIBIOTIC"
  1383.     LOCATE 9, 5
  1384.     PRINT "CEFORANIDE, PRECEF----CEPHALOSPORIN ANTIBIOTIC"
  1385.     LOCATE 10, 5
  1386.     PRINT "CEFOTAN, CEFOTETAN----CEPHALOSPORIN ANTIBIOTIC"
  1387.     LOCATE 11, 5
  1388.     PRINT "CEFTAZIDINE, FORTAZ, TAZICEF, TAZIDINE----CEPHALOSPORIN ANTIBIOTIC"
  1389.     LOCATE 12, 5
  1390.     PRINT "CEFUROXINE, ZINACEF----CEPHALOSPORIN ANTIBIOTIC"
  1391.     LOCATE 13, 5
  1392.     PRINT "CEPHALEXIN, KEFLEX, CEPOREX----CEPHALOSPORIN ANTIBIOTIC"
  1393.     LOCATE 14, 5
  1394.     PRINT "CERUMENEX----CREMENOLYTIC"
  1395.     LOCATE 15, 5
  1396.     PRINT "CHLOR-TRIETION, CHLORPHENIRAMINE, TELDRIN----ANTIHISTIME"
  1397.     LOCATE 16, 5
  1398.     PRINT "CHLORONASE, CHLORPROPAMIDE, DIABINASE----ORAL ANTIDIABETIC AGENT"
  1399.     LOCATE 17, 5
  1400.     PRINT "CIMETIDINE, TAGAMET----H2-RECEPTOR ANTAGONIST"
  1401.     LOCATE 18, 5
  1402.     PRINT "CIPRO, CIPROFLOXACIN----ANTIBIOTIC"
  1403.     LOCATE 19, 5
  1404.     PRINT "CLINORIL, SULINDAC----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
  1405.     LOCATE 20, 5
  1406.     PRINT "CLODERM, CLOCORTOLONE PIVALATE----ANTI-INFLAMMATORY"
  1407.     LOCATE 21, 5
  1408.     PRINT "COACTIN, AMDINOCILLIN----PENICILLIN ANTIBIOTIC"
  1409.     LOCATE 22, 5
  1410.     PRINT "CODEINE----ANTITUSSIVE, NARCOTIC ANALGESIC"
  1411.     LOCATE 23, 5
  1412.     PRINT "COGENTIN, BENZTROPINE----ANTIDYSKINETIC"
  1413.     DELAY 10
  1414.     GOTO DMENU
  1415.  
  1416.    CASE 4
  1417.     CALL MBOX
  1418.     LOCATE 4, 5
  1419.     PRINT "COLASE, DOCUSATE SODIUM, DIOCTO, REGUTOL----EMOLLIENT LAXATIVE"
  1420.     LOCATE 5, 5
  1421.     PRINT "COMPAZINE, PROCHLORPERAZINE, STEMETIL----ANTIEMETIC"
  1422.     LOCATE 6, 5
  1423.     PRINT "CORDRAIN, FLURANDRENOLIDE----ADRENAL CORTICOSTOID, ANTI-INFLAMMATORY"
  1424.     LOCATE 7, 5
  1425.     PRINT "CORRECTOL, PHENOLPHTHALEN, EXLAX,FEEN-A-MENT----STIMULANT LAXATIVE"
  1426.     LOCATE 8, 5
  1427.     PRINT "CORTISONE----GLUCOCORTICOID"
  1428.     LOCATE 9, 5
  1429.     PRINT "CRYSTODIGIN, PURODIGIN, DIGITOXIN----CARDIOTONIC, DIGITALIS PREPARATION"
  1430.     LOCATE 10, 5
  1431.     PRINT "DALMANE, FLURAZEPAM, SOMNOL----SEDATIVE, HYPNOTIC-(CONTROLLED SUBSTANCE)"
  1432.     LOCATE 11, 5
  1433.     PRINT "DARVOCET N-100,PROPOXYPHENE NAPSYLATE----ANALGESIC,(CONTROLLED SUBSTANCE)"
  1434.     LOCATE 12, 5
  1435.     PRINT "DARVON,PROPOXYPHENE HYDROCHLORIDE----ANALGESIC, (CONTROLLED SUBSTANCE)"
  1436.     LOCATE 13, 5
  1437.     PRINT "DEBRISAN, DEXTRANONER----DEBRIDING AGENT, SYNTHETIC POLYSACCHARIDE"
  1438.     LOCATE 14, 5
  1439.     PRINT "DECADRON, DEXAMETHASONE---(SYSTEMIC), ANTI-INFLAMMATORY, IMMUNOSUPPRESSANT"
  1440.     LOCATE 15, 5
  1441.     PRINT "DELTA CORTEF, PREDNISOLONE----GLUCOCORTICOID"
  1442.     LOCATE 16, 5
  1443.     PRINT "DELTASONE----ADRENAL CORTICOSTEROID"
  1444.     LOCATE 17, 5
  1445.     PRINT "DEMEROL, MEPERDINE, PETHADOL----NARCOTIC ANALGESIC"
  1446.     LOCATE 18, 5
  1447.     PRINT "DESYREL, TRAZODONE----ANTIDEPRESSANT"
  1448.     LOCATE 19, 5
  1449.     PRINT "DEXADRON, DEXASONE----ANTI-INFLAMMATORY, IMMUNOSUPPRESSANT"
  1450.     LOCATE 20, 5
  1451.     PRINT "DIABINESE, GLUCAMIDE----ANTI-DIBETIC, ANTI-DURETIC"
  1452.     LOCATE 21, 5
  1453.     PRINT "DIAMOX, AKSOL----ANTI-CONVULSANT, ANTI-GLAUCOMA AGENT"
  1454.     LOCATE 22, 5
  1455.     PRINT "DIAZEPAM, VALIUM, VALRESEASE----ANTICONVULSANT, ANTI-ANXIETY AGENT"
  1456.     LOCATE 23, 5
  1457.     PRINT "DIGEL, MALLOX, RIOPAN----ANTIACID"
  1458.     DELAY 10
  1459.     GOTO DMENU
  1460.  
  1461.    CASE 5
  1462.     CALL MBOX
  1463.     LOCATE 4, 5
  1464.     PRINT "DILATIN, PHENYTOIN SODIUM----ANTI-CONVULSANT"
  1465.     LOCATE 5, 5
  1466.     PRINT "DIMENHYDRINATE, DRAMAMINE----ANTI-HYSTIMINE, ANTIEMETIC, ANTI-VERTIGO"
  1467.     LOCATE 6, 5
  1468.     PRINT "DITROPAN, OXYBUTININ CHLORIDE----ANTISPASMODIC"
  1469.     LOCATE 7, 5
  1470.     PRINT "DIURIL, DIACHLOR----DIURETIC"
  1471.     LOCATE 8, 5
  1472.     PRINT "DOANSPILLS, MAGNESIUM SALICYLATE----ANALGESIC, ANTIPYRETIC,"
  1473.     LOCATE 9, 5
  1474.     PRINT "DOLOBID----ANTIPYRETIC, ANALGESIC, ANTI-INFLAMMATORY"
  1475.     LOCATE 10, 5
  1476.     PRINT "DOLOPHINE, METHADONE----OPIOID ANALGESIC, NARCOTIC DETOXICANT"
  1477.     LOCATE 11, 5
  1478.     PRINT "ELASE, FIBROINOIYSIN DEOXYRIBONUCLEASE----TOPICAL DEBRIDING AGENT"
  1479.     LOCATE 12, 5
  1480.     PRINT "ELAVIL, AMITRIPTYLINE HYDROCLORIDE, AMITRIL----ANTIDEPRESSANT"
  1481.     LOCATE 13, 5
  1482.     PRINT "EDROPHONIUM CHLORIDE, ENLON----CHOLINEGIC AGONIST, DIAGNOSTIC AGENT"
  1483.     LOCATE 14, 5
  1484.     PRINT "ENKAID, ENCAINIDE HYDROCHLORIDE----ANTIARRHYTHMIC"
  1485.     LOCATE 15, 5
  1486.     PRINT "ENTEX, ENTEX L.A.----DECONGESTANT, EXPECTORANT"
  1487.     LOCATE 16, 5
  1488.     PRINT "EPINEPHRINE, DOPAMINE, ALBUTEROL----ADRENERGIC, BRONCIDILATOR"
  1489.     LOCATE 17, 5
  1490.     PRINT "EQUANIL, MEPROBAMATE, MILTOWN----ANTIANXIETY AGENT"
  1491.     LOCATE 18, 5
  1492.     PRINT "ERGOCALCIFEROL, VITAMIN D----ANTIPYPOCALCEMIC"
  1493.     LOCATE 19, 5
  1494.     PRINT "ERYTHOMYCIN, E.E.S., E-MYCIN, ILOSONE----ANTIBIOTIC"
  1495.     LOCATE 20, 5
  1496.     PRINT "ESIDRIX, HYDRODIURIL, HYDROCHLOROTHIAZE----THIAZIDE DIUURETIC"
  1497.     LOCATE 21, 5
  1498.     PRINT "ESTROGENS----HORMONE REPLACEMENT"
  1499.     LOCATE 22, 5
  1500.     PRINT "FELDENE, PIROXICAM----NONARCOTIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
  1501.     LOCATE 23, 5
  1502.     PRINT "FERROUS SULFATE, SLOW-FE, FEOSOL, MOL-IRON----HEMATINIC"
  1503.     DELAY 10
  1504. GOTO DMENU
  1505.  
  1506.    CASE 6
  1507.     CALL MBOX
  1508.     LOCATE 4, 5
  1509.     PRINT "FLEXERIL, CYCLOBENZAPRINE----TRICYCIC ANTIDEPRESSANT, MUSCLE RELAXANT"
  1510.     LOCATE 5, 5
  1511.     PRINT "FLOXIN, OFLOXACIN----SYNTHETIC BROAD-SPECTRUM ANTIBACTERIAL AGENT"
  1512.     LOCATE 6, 5
  1513.     PRINT "FLUOXETINE, PROZAC----ANTIDEPRESSANT"
  1514.     LOCATE 7, 5
  1515.     PRINT "FOLIC ACID, VITAMIN B9----VITAMIN SUPPLEMENT"
  1516.     LOCATE 8, 5
  1517.     PRINT "FURADANTIN, AFTATE, NP-27, TOLNAFATE----ANTIBACTERIAL, ANTIFUNGAL"
  1518.     LOCATE 9, 5
  1519.     PRINT "FUROSEMIDE, LASIX, NOVAMIDE----LOOP DIURETIC, ANTIHYPERTENSIVE"
  1520.     LOCATE 10, 5
  1521.     PRINT "FUROXONE, FURAZOLIDONE----ANTIBACTERIAL, ANTIPROTOZOAL AGENT"
  1522.     LOCATE 11, 5
  1523.     PRINT "GANTRISIN, SULFISOXAZOLE----ANTIBIOTIC"
  1524.     LOCATE 12, 5
  1525.     PRINT "GARAMYCIN, GENTAMICIN SULFATE----ANTIOBIOTIC, AMINOGLYCOSIDE"
  1526.     LOCATE 13, 5
  1527.     PRINT "GLUCOTROL, GLIPSIDE----ORAL ANTIDIABETIC AGENT"
  1528.     LOCATE 14, 5
  1529.     PRINT "GOLD SALTS, AURANOFIN----AURTHIOGLUCOSE"
  1530.     LOCATE 15, 5
  1531.     PRINT "GYNE-LOTRIMIN, LOTRIMIN, MYCELEX----TOPICAL ANTIFUNGAL"
  1532.     LOCATE 16, 5
  1533.     PRINT "HALCION, HALOPERIDOL----ANTIPSYCHOTIC"
  1534.     LOCATE 17, 5
  1535.     PRINT "HEPARIN, LIQUAEMIN SODIUM----ANTICOAGULANT"
  1536.     LOCATE 18, 5
  1537.     PRINT "HYDRALAZINE, APRESOLINE, ROLAZINE----ANTIHYPERTENSIVE"
  1538.     LOCATE 19, 5
  1539.     PRINT "HYDROFLUMETHIAZINE, DIUCARDIN----ANTIHYPERTENSIVE"
  1540.     LOCATE 20, 5
  1541.     PRINT "HYOSCYAMINE, CYTOPAZ----ANTICHOLINERGIC"
  1542.     LOCATE 21, 5
  1543.     PRINT "IBUPROFEN, MOTRIN, DATRIL----NONSTEROIDAL ANTI-INFLAMMATORY"
  1544.     LOCATE 22, 5
  1545.     PRINT "ILLSONE, ERYTHROMYCIN ESTOLATE----ANTIBIOTIC"
  1546.     LOCATE 23, 5
  1547.     PRINT "IMFERON, IRON DEXTRAN----HEMATINIC"
  1548.     DELAY 10
  1549.     GOTO DMENU
  1550.  
  1551.      CASE 7
  1552.     CALL MBOX
  1553.     LOCATE 4, 5
  1554.     PRINT "IMIPRAMINE HYDROCHLORIDE, TOFRANIL----ANTIDEPRESSANT"
  1555.     LOCATE 5, 5
  1556.     PRINT "IMODIUM, LOPERAMIDE----ANTIDIARRHEAL"
  1557.     LOCATE 6, 5
  1558.     PRINT "INDERIAL/PROPRANOLOL----BETA-BLOCKER"
  1559.     LOCATE 7, 5
  1560.     PRINT "INDOMETHACIN/INDOCID,INDOCIN----NONSTEROIDAL ANTI-INFLAMMATORY"
  1561.     LOCATE 8, 5
  1562.     PRINT "INTAL, NASALCOM, CROMOLYN SODIUM----MAST CELL STABILIZER, ANTICISTHMATIC"
  1563.     LOCATE 9, 5
  1564.     PRINT "INTERFERON, ROFERON A----ANTINEOPLASTIC"
  1565.     LOCATE 10, 5
  1566.     PRINT "IPECAC SYRUP----EMETIC"
  1567.     LOCATE 11, 5
  1568.     PRINT "ISMELIN, GUANETHIDINE----ANTIHYPERTENSIVE"
  1569.     LOCATE 12, 5
  1570.     PRINT "IOPHEN, ORGANIDIN, IODINATED GLYCEROL----EXPECTORANT"
  1571.     LOCATE 13, 5
  1572.     PRINT "IRON DEXTRON, IMFERGAN, FERONIM----HEMATINIC "
  1573.     LOCATE 14, 5
  1574.     PRINT "ISOCARBOXAZID, MARPLAN----ANTIDEPRESSANT"
  1575.     LOCATE 15, 5
  1576.     PRINT "ISOPROTERENOL, ISUPREL, AERO-ISO-----ADRENERGIC, BRONCHODILATOR"
  1577.     LOCATE 16, 5
  1578.     PRINT "ISOSORBIDE DINITRATE/ISORDIL----ANTIANGINAL AGENT, VASODILATOR"
  1579.     LOCATE 17, 5
  1580.     PRINT "ISUPROL, AEROLONE, VAPO-ISO----BRONCHODILATOR, CARDIAC STIMULANT"
  1581.     LOCATE 18, 5
  1582.     PRINT "K-DUR, SLOW-K, K-LITE, POTASSIUM CHLORIDE----POTASSIUM SUPPLEMENT"
  1583.     LOCATE 19, 5
  1584.     PRINT "KAOPECTATE, KAOLIN+PECTIN MIXTURE----ANTIDIARREA"
  1585.     LOCATE 20, 5
  1586.     PRINT "KEFLIN, CEPHALOTHIN SODIUM, SEFFIN----ANTIBIOTIC"
  1587.     LOCATE 21, 5
  1588.     PRINT "KLONOPIN, CLONAZEPAM, RIVOTRIL----ANTICONVULSANT"
  1589.     LOCATE 22, 5
  1590.     PRINT "LIOTHYRONINE----THYROID HORMONE"
  1591.     LOCATE 23, 5
  1592.     PRINT "LANOXIN, DIGOXIN, LANOXICAPS----CARDIAC GLYCOSIDE"
  1593.     DELAY 10
  1594.     GOTO DMENU
  1595.  
  1596.    CASE 8
  1597.     CALL MBOX
  1598.     LOCATE 4, 5
  1599.     PRINT "LEVODOPA, DOPAR, LEVOPA----ANTIPARKINSONISM AGENT"
  1600.     LOCATE 5, 5
  1601.     PRINT "LEVOPHED, NOREPINEPHINE----ADRENERGIC (SYMPATHOMIMETIC)"
  1602.     LOCATE 6, 5
  1603.     PRINT "LIBRIUM, CHLORDIAZEPOXIDE----ANTIANXIETY AGENT (CONTROLLED SUBSTANCE)"
  1604.     LOCATE 7, 5
  1605.     PRINT "LIDOCAINE, XYLOCAINE----ANTIARRHYTHMIC"
  1606.     LOCATE 8, 5
  1607.     PRINT "LINDAINE, KWELL, SCABENE----SCABICIDE, CHLORINATED HYDROCARBON"
  1608.     LOCATE 9, 5
  1609.     PRINT "LIQUIFIRM, IDOXOURIDINE(IUD)----ANTIVIRAL AGENT"
  1610.     LOCATE 10, 5
  1611.     PRINT "LITHIUM, LITHANE, ESKALITH----ANTIMANIC AGENT"
  1612.     LOCATE 11, 5
  1613.     PRINT "LOMOTIL, DIPHENOXYLATE/ATROPINE SULFATE----ANTIDIARRHEAL"
  1614.     LOCATE 12, 5
  1615.     PRINT "LOPRESSOR, METOPROLOL----ANTIHYPERTENSIVE"
  1616.     LOCATE 13, 5
  1617.     PRINT "LORATAB, VICODIN, LORCET---NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1618.     LOCATE 14, 5
  1619.     PRINT "MACRODANTIN, NITROFURANTOIN, FURDANTIN----URINARY TRACT ANTISEPTIC"
  1620.     LOCATE 15, 5
  1621.     PRINT "MAGNESIUM SULFATE----ANTICONVULSANT"
  1622.     LOCATE 16, 5
  1623.     PRINT "MANNITOL, OSMITROL----DIURETIC"
  1624.     LOCATE 17, 5
  1625.     PRINT "MAXAIR, PIRBUTEROL ACETATE----BRONCHODILATOR"
  1626.     LOCATE 18, 5
  1627.     PRINT "MECLIZINE HYDROCLORIDE, ANTIVERT, ANTRIZINE----ANTIMETIC, ANTIVERTIGO"
  1628.     LOCATE 19, 5
  1629.     PRINT "MECOLOFENAMATE, MECLOMEN----ANALGESIC, ANTIPYRETIC, ANTI-INFLAMMATORY"
  1630.     LOCATE 20, 5
  1631.     PRINT "METHYLDOPA, ALDOMET, DOPAMET----ANTIHYPERTENSIVE"
  1632.     LOCATE 21, 5
  1633.     PRINT "METOCLOPRAMIDE, REGLAN, MAXERAN----ANTIMETIC"
  1634.     LOCATE 22, 5
  1635.     PRINT "MEVACOR, LOVASTATIN----CHOLESTEROL LOWERING AGENT"
  1636.     LOCATE 23, 5
  1637.     PRINT "MICATIN, MICONAZOLE NITRATE----ANTIFUNGAL"
  1638.     DELAY 10
  1639.     GOTO DMENU
  1640.  
  1641.     CASE 9
  1642.     CALL MBOX
  1643.     LOCATE 4, 5
  1644.     PRINT "MICRONASE, GLYDURIDE, DIABETA----ORAL ANTIDIABETIC AGENT"
  1645.     LOCATE 5, 5
  1646.     PRINT "MINIPRESS, PRAZOSIN----ANTIHYPERTENSIVE"
  1647.     LOCATE 6, 5
  1648.     PRINT "MINOCIN, MICNOCYCLINE HYDROCHLORIDE----TETRACYCLINE ANTIBIOTIC"
  1649.     LOCATE 7, 5
  1650.     PRINT "MINOXIDIL, LONITEN----ANTIHYPERTENSIVE, HAIR GROWTH STIMULANT"
  1651.     LOCATE 8, 5
  1652.     PRINT "MOBAN, MOLINDONE HYDROCHLORIDE----ANTIPSYCHOTIC"
  1653.     LOCATE 9, 5
  1654.     PRINT "MODANE, DANTHRON, DORBANE----LAXATIVE (STIMULANT)"
  1655.     LOCATE 10, 5
  1656.     PRINT "MONISTAT, MICONAZOLE----ANTIFUNGAL AGENT"
  1657.     LOCATE 11, 5
  1658.     PRINT "MORPHINE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1659.     LOCATE 12, 5
  1660.     PRINT "NAFCILLIN, NALPEN, UNIPEN----PENICILLIN ANTIBIOTIC"
  1661.     LOCATE 13, 5
  1662.     PRINT "NALFON, FENOPROFEN----NONSTEROIDAL ANTI-INFLAMMATORY"
  1663.     LOCATE 14, 5
  1664.     PRINT "NAPROSYN, NAPROXEN SODIUM, ANAPROX----NON-STEROIDAL ANTI-INFLAMMATORY"
  1665.     LOCATE 15, 5
  1666.     PRINT "NAVANE, THIOTHIXENE HYDROCHLORIDE----ANTIPSYCOTIC"
  1667.     LOCATE 16, 5
  1668.     PRINT "NEBUTAL, PENTOBARBITAL----SEDATIVE, HYPONTIC (CONTROLLED SUBSTANCE)"
  1669.     LOCATE 17, 5
  1670.     PRINT "NEOMYCIN, MYCIFRADIN SULFATE, NEOBIOTIC----AMINOGLYCOSIDE ANTIBIOTIC"
  1671.     LOCATE 18, 5
  1672.     PRINT "NIACIN, VITAMIN B3, NICOTIC ACID----ANTILIPEMIC, PERIPHERAL VASODILATOR"
  1673.     LOCATE 19, 5
  1674.     PRINT "NITROGLYCERIN, NITROBID, NITRO-DUR, NITROSTAT----ANTIANGINAL"
  1675.     LOCATE 20, 5
  1676.     PRINT "NITROPRESS, NITROPRUSSIDE----ANTIHYPERTENSIVE"
  1677.     LOCATE 21, 5
  1678.     PRINT "NOCTEC, CHLORAL HYDRATE----SEDATIVE HYPNOTIC"
  1679.     LOCATE 22, 5
  1680.     PRINT "NORFLOXACIN, NOROXIN----BROAD SPECTRUM ANTIBIOTIC"
  1681.     LOCATE 23, 5
  1682.     PRINT "NETROMYCIN, NETILMICINSULFATE----ANTIBIOTIC"
  1683.     DELAY 10
  1684.     GOTO DMENU
  1685.       
  1686.    CASE 10
  1687.     CALL MBOX
  1688.     LOCATE 4, 5
  1689.     PRINT "NORPACE, DISOPYRAMIDE PHOSPHATE----ANTIARRYTHMIC"
  1690.     LOCATE 5, 5
  1691.     PRINT "NORTEC, CLORAL HYDRATE----SEDATIVE, HYPONOTIC"
  1692.     LOCATE 6, 5
  1693.     PRINT "NUBAIN, NALBUPHINE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1694.     LOCATE 7, 5
  1695.     PRINT "NUPERCAINAL, DIDUCAINE----LOCAL ANESTHESTIC"
  1696.     LOCATE 8, 5
  1697.     PRINT "NYSTATIN, MYCOSTATIN, NILSTAT----ANTIFUNGAL"
  1698.     LOCATE 9, 5
  1699.     PRINT "ORA-JEL, BENZOCAINE----ANESTHETIC"
  1700.     LOCATE 10, 5
  1701.     PRINT "ORINASE, TOLOBUTAMIDE----ORAL ANTIDIABETIC AGENT"
  1702.     LOCATE 11, 5
  1703.     PRINT "ORUDIS, KETOPROFEN----NONSTEROIDAL ANTI-INFLAMMATORY AGENT"
  1704.     LOCATE 12, 5
  1705.     PRINT "OXAZEPAM, SERAX----ANTIANXIETY AGENT"
  1706.     LOCATE 13, 5
  1707.     PRINT "OXICONAZOLE, OXISTAT NITRATE----ANTIFUNGAL AGENT"
  1708.     LOCATE 14, 5
  1709.     PRINT "OXYMETAZDINE HYDROCHLORIDE, DRISTAN, SINEX----DECONGESTANT"
  1710.     LOCATE 15, 5
  1711.     PRINT "PAMELOR, NORTRIPTYLINE HYDROCLORIDE, AVENTYL----TRICYCLIC ANTIDEPRESSANT"
  1712.     LOCATE 16, 5
  1713.     PRINT "PARAGORIC OPIUM----ANTIDIARRHEA AGENT"
  1714.     LOCATE 17, 5
  1715.     PRINT "PAVABID, PAPAVERINE HYDROCHLORIDE, PAVACEN----VASODILATOR"
  1716.     LOCATE 18, 5
  1717.     PRINT "PEDIACARE, SUDAFED----DECONGESTANT"
  1718.     LOCATE 19, 5
  1719.     PRINT "PEN-V, PENICILLIN-V POTASSIUM----PENICILLIN ANTIBIOTIC"
  1720.     LOCATE 20, 5
  1721.     PRINT "PENICILLIN-G, BENZATHINE, POTASSIUM PROCAINE---PENICILLIN ANTIBIOTIC"
  1722.     LOCATE 21, 5
  1723.     PRINT "PENTOBARBITAL, LUMINAL----SEDATIVE, HYPONTIC, ANTICONVULSANT"
  1724.     LOCATE 22, 5
  1725.     PRINT "PEPCID, FAMOTIDINE----ANTIULSER AGENT"
  1726.     LOCATE 23, 5
  1727.     PRINT "PERCOCET, OXYCET, TYLOX----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1728.     DELAY 10
  1729.     GOTO DMENU
  1730.  
  1731.    CASE 11
  1732.     CALL MBOX
  1733.     LOCATE 4, 5
  1734.     PRINT "PERCODAN, OXYCODONE----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1735.     LOCATE 5, 5
  1736.     PRINT "PERICOLACE, DIOCTO, D.D.S., PERI-DOS, REGULASE, LAXATIVE, STOOL SOFTNER"
  1737.     LOCATE 6, 5
  1738.     PRINT "PERSANTINE, DIPYRIDAMOLE----VASODILATOR"
  1739.     LOCATE 7, 5
  1740.     PRINT "PHENEGAN, PROMETHAZINE HYDROCLORIDE----ANTIHISATIME, ANTIMETIC"
  1741.     LOCATE 8, 5
  1742.     PRINT "PHENYLBUTAZONE, BUTAZOLIDIN, AZOLID----ANTI-INFLAMMATORY AGENT"
  1743.     LOCATE 9, 5
  1744.     PRINT "PILOCARPINE, ISOPTOCARPINE----MIOTIC"
  1745.     LOCATE 10, 5
  1746.     PRINT "PIPERCILLIN----PENICILLIN ANTIBIOTIC"
  1747.     LOCATE 11, 5
  1748.     PRINT "POLYMICIN B SULFATE, AEROSPORIN----POLYMYCIN ANTIBIOTIC, POLYPEPTIDE"
  1749.     LOCATE 12, 5
  1750.     PRINT "PRIMIDONE, SERTAN, MYSOLINE----ANTICONVULSANT"
  1751.     LOCATE 13, 5
  1752.     PRINT "PROZINE ,SPARINE, PROMAZINE HYDROCHLORIDE-----ANTIPSYCHOTIC, ANTIEMETIC"
  1753.     LOCATE 14, 5
  1754.     PRINT "PROCAINAMIDE, PROCAN SR, PRONESTYL----ANTIARRYTHMIC"
  1755.     LOCATE 15, 5
  1756.     PRINT "PROCARDIA, NIFEDIPINE----ANTIANGINAL"
  1757.     LOCATE 16, 5
  1758.     PRINT "PROPINE----ANTIGLAUCOMA AGENT (OPHTHALMIC SOLUTION)"
  1759.     LOCATE 17, 5
  1760.     PRINT "PROVENTIL, VENTOLIN, ALBUTEROL SULFATE----BRONCHODILATOR"
  1761.     LOCATE 18, 5
  1762.     PRINT "PROVERA, MEDROXYPROGESTERONE ACETATE----PROGESTERONE, ANTINEOPLASTIC"
  1763.     LOCATE 19, 5
  1764.     PRINT "PSYLLIUM, METAMUCIL----BULK FORMING LAXATIVE"
  1765.     LOCATE 20, 5
  1766.     PRINT "PYRIDIUM, PHENAZOPYRINE HYDROCHLORIDE----URINARY ANALGESIC"
  1767.     LOCATE 21, 5
  1768.     PRINT "QUINALAN----ANTIARRHYTHMIC"
  1769.     LOCATE 22, 5
  1770.     PRINT "REGITINE, ROGITINE, PHENTOIAMINE----ANTIHYPERTENSIVE"
  1771.     LOCATE 23, 5
  1772.     PRINT "RESTROIL, TEMAZEPAM----SEDATIVE, HYPNOTIC"
  1773.     DELAY 10
  1774.     GOTO DMENU
  1775.  
  1776.    CASE 12
  1777.     CALL MBOX
  1778.     LOCATE 4, 5
  1779.     PRINT "RETIN A, VITAMIN A, PROVITAMIN A----ANTIACNE, ANTICANCER"
  1780.     LOCATE 5, 5
  1781.     PRINT "RITALIN, METHYLPHENIDATE HYDROCHLORIDE----CNS STIMULANT"
  1782.     LOCATE 6, 5
  1783.     PRINT "ROBITUSSIN, GUAILFENESIN----EXPECTORANT"
  1784.     LOCATE 7, 5
  1785.     PRINT "ROLAIDS----ANTIACID"
  1786.     LOCATE 8, 5
  1787.     PRINT "SECOBARBITAL, SERAL----SEDATIVE, HYPONOTIC"
  1788.     LOCATE 9, 5
  1789.     PRINT "SELDANE, TERFENADINE----ANTIHISATINE"
  1790.     LOCATE 10, 5
  1791.     PRINT "SENNA, SENOKOT, GENTAL NATURE, GENNA----STIMULANT LAXATIVE"
  1792.     LOCATE 11, 5
  1793.     PRINT "SER-AP-ES----ANTIHYPERTENSIVE COMBINATION DRUG"
  1794.     LOCATE 12, 5
  1795.     PRINT "SERENTAL, MESORIDAZEINE BESYLATE----ANTIPSYCOTIC"
  1796.     LOCATE 13, 5
  1797.     PRINT "SILVER SULFADIAZINE, SILVARDENE----TOPICAL ANTIBACTERAL"
  1798.     LOCATE 14, 5
  1799.     PRINT "SIMETHICONE, MYLICON, SILAIN, GAS X----ANTIFLATUANT"
  1800.     LOCATE 15, 5
  1801.     PRINT "SINEMENT, LEVODOPA-CARBIDOPA----ANTIPARKINISONISM AGENT"
  1802.     LOCATE 16, 5
  1803.     PRINT "SODIUM BICARBONATE, SODA MINT----ALKALIZER, ORAL ANTIACID"
  1804.     LOCATE 17, 5
  1805.     PRINT "SOMA, RELA, CARISOPRODOL----SKELETAL MUSCLE RELAXANT"
  1806.     LOCATE 18, 5
  1807.     PRINT "STREPTOKINASE, STREPTASE----THROMBOLIC ENZYME"
  1808.     LOCATE 19, 5
  1809.     PRINT "STREPTOMYCIN SULFATE----AMINOGLYCOSIDE ANTIBIOTIC"
  1810.     LOCATE 20, 5
  1811.     PRINT "SURFAK, DOCUSATE SODIUM, COLASE,D.D.S.----LAXATIVE (STOOL SOFTENER)"
  1812.     LOCATE 21, 5
  1813.     PRINT "SYMETREL, AMANTADINE----ANTIVIRAL, ANTIPARKINSON'S AGENT"
  1814.     LOCATE 22, 5
  1815.     PRINT "SYTHROID, LEVOTHYROXINE SODIUM, T4----THYROID HORMONE"
  1816.     LOCATE 23, 5
  1817.     PRINT "TALWIN, PETAZOCINE HYDROCLORIDE, FORTRAL----NARCOTIC ANALGESIC"
  1818.     DELAY 10
  1819.     GOTO DMENU
  1820.  
  1821.    CASE 13
  1822.     CALL MBOX
  1823.     LOCATE 4, 5
  1824.     PRINT "TAVIST, TAVIST 1, CLENASTINE FURNARATE----ANTIHISTIME"
  1825.     LOCATE 5, 5
  1826.     PRINT "TEARS+, TEARS NATURAL, TEARGEN, ARTIFICAL TEARS----DEMULCENT"
  1827.     LOCATE 6, 5
  1828.     PRINT "TETRACYCLINE, ACHROMYCIN----TETRACYCLINE ANTIBIOTIC"
  1829.     LOCATE 7, 5
  1830.     PRINT "THEOPHYLLINE, THEO-DUR----SPAMOLYTIC"
  1831.     LOCATE 8, 5
  1832.     PRINT "THIORDAZINE, MELLARIL----ANTIPSYCHOTIC"
  1833.     LOCATE 9, 5
  1834.     PRINT "TIMOPIC, TIMOLOL MALEATE----ANTIHYPERTENSIVE, ANTIGLACOMA"
  1835.     LOCATE 10, 5
  1836.     PRINT "TOLECTIN, TOLMENTIN SODIUM----NONARCOTIC ANALGESIC, ANTIPYRETIC"
  1837.     LOCATE 11, 5
  1838.     PRINT "TOLINASE, RONASE, TOLAMIDE, TOLAZAMIDE----ORAL ANTIDIABETIC AGENT"
  1839.     LOCATE 12, 5
  1840.     PRINT "TRANXENE, CLORAZPATE DIPOTASSIUM----ANTIANXIETY AGENT"
  1841.     LOCATE 13, 5
  1842.     PRINT "TRENDAL, PENTOXIFYLLINE----HEMORRORLOGIC"
  1843.     LOCATE 14, 5
  1844.     PRINT "TRIMTERENE, HCTZ----ANTI-HYPERTENSIVE"
  1845.     LOCATE 15, 5
  1846.     PRINT "TUSSI-ORGANIDIN----DECONGESTANT, EXPECTORANT"
  1847.     LOCATE 16, 5
  1848.     PRINT "TYLENOL#3, CODAP, TYPAP----NARCOTIC ANALGESIC (CONTROLLED SUBSTANCE)"
  1849.     LOCATE 17, 5
  1850.     PRINT "TYZINE, MURINE PLUS, VISINE----VASOCONSTRICTOR"
  1851.     LOCATE 18, 5
  1852.     PRINT "UROKINASE, ABBOKINASE----THROMBOLIC ENZYME"
  1853.     LOCATE 19, 5
  1854.     PRINT "VALOSEF, CEPHRADINE----CEPHALOSPORIN ANTIBIOTIC"
  1855.     LOCATE 20, 5
  1856.     PRINT "VALPRONIC ACID, DEPAKENE----ANTICONVULSANT"
  1857.     LOCATE 21, 5
  1858.     PRINT "VASOPRESSIN----ANTIDIURETIC HORMONE"
  1859.     LOCATE 22, 5
  1860.     PRINT "VASOTEC, ENALPRIL MALEATE----ANTIHYPERTENSIVE"
  1861.     LOCATE 23, 5
  1862.     PRINT "VIBRAMYCIN, DOXYCYCLINE, DOXY-200----TETRACYCLINE ANTIBIOTIC"
  1863.     DELAY 10
  1864.     GOTO DMENU
  1865.  
  1866.   CASE 14
  1867.     CALL MBOX
  1868.     LOCATE 4, 5
  1869.     PRINT "VIRAZOLE, RIBAVIRIN----ANTIVIRAL AGENT"
  1870.     LOCATE 5, 5
  1871.     PRINT "VISKEN, PINDOLOL----ANTIHYPERTENSIVE"
  1872.     LOCATE 6, 5
  1873.     PRINT "VITAMIN B6, PYRIDOXINE----VITAMIN"
  1874.     LOCATE 7, 5
  1875.     PRINT "VITAMIN B2, RIBOFLAVIN----VITAMIN"
  1876.     LOCATE 8, 5
  1877.     PRINT "VITAMIN B12, CYANOBALNMIN----VITAMIN"
  1878.     LOCATE 9, 5
  1879.     PRINT "VITAMIN K, MENADIOL SODIUM DIPHOSPHATE----VITAMIN"
  1880.     LOCATE 10, 5
  1881.     PRINT "VOLTRIN----ANTIARRTHRITIC, ANTI-INFLAMMATORY"
  1882.     LOCATE 11, 5
  1883.     PRINT "WARFARIN, COUMADIN----ANTI-COAGULANT"
  1884.     LOCATE 12, 5
  1885.     PRINT "WELLBUTIN, BUPROPION HYDROCHLORIDE----ANTIDEPRESSANT"
  1886.     LOCATE 13, 5
  1887.     PRINT "WYTENSIN, GUANABENZ ACETATE----ANTIHYPERTENSIVE"
  1888.     LOCATE 14, 5
  1889.     PRINT "XANAX, ALPRAZOLAM----ANTIANXIETY AGENT"
  1890.     LOCATE 15, 5
  1891.     PRINT "XERAC BP, BENZOYL PEROXIDE, OXY 5, OXY 10, CLEARSIL----ANTIACNE"
  1892.     LOCATE 16, 5
  1893.     PRINT "XYLOMETHAZOLINE, NEOSYNEPHINE, SINUTAB LA----DECONGESTANT"
  1894.     LOCATE 17, 5
  1895.     PRINT "ZANTAC, RANITIDINE----H2 RECEPTOR ANTAGONIST "
  1896.     LOCATE 18, 5
  1897.     PRINT "ZARONTIN, ETHOSUXIDE----ANTICONVULSANT"
  1898.     LOCATE 19, 5
  1899.     PRINT "ZEPHINAN, GERIMICAN, BENZALKONIUM CHLORIDE----ANTISEPTIC"
  1900.     LOCATE 20, 5
  1901.     PRINT "ZIDOVUDINE, AZT, RETROVIR----ANTIVIRAL AGENT"
  1902.     LOCATE 21, 5
  1903.     PRINT "ZINACEF, CEFUROXINE SODIUM----ANTIBIOTIC"
  1904.     LOCATE 22, 5
  1905.     PRINT "ZOVIRAX, ACYCLOVIR SODIUM----ANTIVIRAL AGENT"
  1906.     LOCATE 23, 5
  1907.     PRINT "ZYLOPRIM, ALLOPURINOL----ANTIGOUT AGENT"
  1908.         DELAY 10
  1909.         GOTO DMENU
  1910.  
  1911. END SELECT
  1912. END SUB
  1913.  
  1914.